Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры. Написать программы на паскале по 3-м циклам.
Answers & Comments
AdaLavleisprogram 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.
Answers & Comments
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.