Как работать с файлом из облака в pascal abc net
Желательно привести пример кода
158
177
Ответы на вопрос:
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.
Популярно: Информатика
-
РашеваГулим26.05.2023 20:19
-
Vivitek3107.02.2022 07:17
-
vasylyna94609.11.2020 08:47
-
арина113801.09.2020 11:31
-
ayaermek09.03.2021 20:23
-
ilyazhuravlev106.09.2021 02:31
-
helpmepleasehelp108.04.2021 18:00
-
Kutisheva200627.03.2022 05:10
-
sonyaovch07.05.2020 17:05
-
Gladiator97428.03.2021 01:13