Вычислить сумму всех четных натуральных чисел меньше данного n . сумму всех четных натуральных чисел меньше данного n . по информатике

Марьяна200413 Марьяна200413    2   23.05.2019 16:30    2

Ответы
rogaoksi rogaoksi  19.06.2020 10:28
Var a,n,s:integer;
begin
write('введите число n ');
readln(n);
s:=0;
for a:=1 to n do
if (a<n) and (a mod 2 =0) then s:=s+a;
write(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика