Регистрация
123451528
09.12.2022 02:47
Информатика
Есть ответ 👍

4. Зарисуй в тетрадь программу робо сумо и укажи назва ше и назначение блоков:
5
O
3
2
(, 8
5
1. Блок «Старт» - запускает программу​

131
348
Посмотреть ответы 1

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

Amelka06
Amelka06
4,7(9 оценок)

код (pascal)

var

c: array[1..15] of integer;

i, k: integer;

pr: longint;

begin

for i: =1 to 15 do

read(c[i]);

pr: =1;

k: =0;

for i: =1 to 15 do

if c[i]=30 then

begin

pr: =pr*3;

k: =k+1;

end;

if k=0 then pr: =0;

write(pr);

for i : = 1 to k do write(0);

writeln(' ', k);

end.

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