Регистрация
JonHenryEdem1
23.12.2022 18:26
Информатика
Есть ответ 👍

Нарисуйте блок схему алгоритма р: =0; а: =4; for i: =1 to 5 do begin a: =2*а/2+20 p: =р+а; еnd;

140
247
Посмотреть ответы 1

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

MaksimKim2005koreec
MaksimKim2005koreec
4,6(2 оценок)

var s,i,x: integer; begins: =1; for i: =1 to 11 do beginreadln(x); if (x< 0) and (x mod 17 = 0) then s: =s*x; end; if s< > 1 then writeln(s) else writeln('0'); end.

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