Автор - A1k1u1m1a1 12 лет назад

Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры.
Написать программы на паскале по 3-м циклам.

Ответ

Автор - AdaLavleis

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.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры.Написать программы на паскале по 3-м циклам.

Ответ

Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры.
Написать программы на паскале по 3-м циклам.