Вопрос по информатике:
Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры.
Написать программы на паскале по 3-м циклам.
- 18.10.2017 07:31
- Информатика
- remove_red_eye 18394
- thumb_up 9
Ответы и объяснения 1
program Project1;
uses Crt;
var k, summa : Word;
n, i : Byte;
begin
Clrscr;
Write('Input k= ');
Readln(k);
write('Input n= ');
Readln(n);
summa := 0;
i := 1;
while ((i <= n)) do
begin
if ((k mod 2) = 0) then
begin
summa := summa + k;
Inc(i);
end;
Inc(k);
end;
Writeln('Summa= ',summa);
Readln;
end.
- 19.10.2017 00:00
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.