Umrne
6 год назад
Помогите!! Срочно!! Составить с помощью While программу для нахождения суммы пяти первых четных чисел.
ОТВЕТЫ
Кондрат
Jul 8, 2019
Program v;
Var a,b,n:integer;
BEGIN
while (n lt; 5) do begin
readln (a);
if (a mod 2 = 0) then begin
b:=b+a;
n:=n+1;
end;
end;
writeln (b);
END.
Var a,b,n:integer;
BEGIN
while (n lt; 5) do begin
readln (a);
if (a mod 2 = 0) then begin
b:=b+a;
n:=n+1;
end;
end;
writeln (b);
END.
103
