Программа pascal abc : введите 70 чисел, выведите сумму чисел из введённых меньших 100
113
223
Ответы на вопрос:
var a,s: integer;
i: byte;
begin
for i: =1 to 70 do begin
readln(a);
if a < 100 then s: =s + a;
end;
writeln(s);
end.
ответ:
Сказать что попросил учителя перекинуть на почту и потом я скачал презентацию
:
Сказать что попросил учителя перекинуть на почту и потом я скачал презентацию
:
Популярно: Информатика
-
Dapx25.03.2021 17:28
-
mashashherbina24.02.2023 02:44
-
NastyTyan31.12.2020 06:24
-
juliazxcvb04.11.2021 07:31
-
ileanka117.11.2020 22:08
-
natsvin201728.01.2022 23:17
-
124354i12.09.2020 05:42
-
yulyasmernyagi26.08.2021 12:49
-
Ксюша1009200714.09.2021 08:06
-
Alexandra103109.01.2020 11:32