Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры.
Написать программы на паскале по 3-м циклам.
Написать программы на паскале по 3-м циклам.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
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.