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

НатальяНОВ НатальяНОВ    1   28.07.2019 14:40    0

Ответы

var

i, s, n:integer;

 

begin

 

write('Введите последнее натуральное число (счет идет от 1 до n): ');

readln(n);

 

for i:=1 to n do

if i mod 2=0 then

 

begin

s:=sqr(i);

writeln(i,' ');

end;

 

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика