Есть ответ 👍

Как работать с файлом из облака в pascal abc net
Желательно привести пример кода

158
177
Посмотреть ответы 1

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


Var a,b,c: integer; begin writeln('введите 30 чисел'); readln(a); b: =1; c: =1; while b< > 30 do begin if a > 0 then   c: =a*c; readln(a); b: =b+1; end; writeln('ответ  ',c); end.

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