Регистрация
spritemax11
28.02.2020 16:13
Информатика
Есть ответ 👍

с ИВТ буду благодарен ​

192
425
Посмотреть ответы 1

Ответы на вопрос:

fyxfhltn
fyxfhltn
4,8(41 оценок)
Var summa,k,i: integer;     nechet: boolean; begin    summa: =0;     for i: =2 to 77 do    begin        nechet: =true;         for k: =2 to trunc(sqrt(i)) do        begin        if i mod k = 0 then   begin                              nechet: =false;                               break;         end;         end;         if nechet then summa: =summa + sqr(i)        end;     writeln('summa=',summa); end.

Популярно: Информатика