Необходимо составить программу в Паскале которая: Вычислить сумму квадратов первых 15 натуральных чисел, каждое из которых при делении на 5 дает в остатке 3.

Question

Информатика

Ритуша

22 февраля, 22:55

Необходимо составить программу в Паскале которая: Вычислить сумму квадратов первых 15 натуральных чисел, каждое из которых при делении на 5 дает в остатке 3.

+3

Ответы (1)

Знаешь ответ?

Потап · Answer 1

Var i, k, s:integer;

begin

while k<15 do

begin

i:=i+1;

if i mod 5=3 then

begin

if k<14 then write (i,'^2 + ')

else write (i,'^2 = ');

s:=s+sqr (i);

k:=k+1;

end;

end;

writeln (s);

end.