Ответы на вопрос:
Создавать
Объяснение:
Если по-английски:People are doing something new
Поблагодари за ответ
Program f0ck;
var s,x:integer;
begin
s:=0;
x:=1;
while x<>0 do
begin
read(x);
if (x mod 7=0) and (i mod 10=0) then s:=x+s;
end;
writeln('summa=',s);
end.
Популярно: Информатика
-
DashaVinter6617.08.2022 12:23
-
Enigma012531.03.2020 22:33
-
mariauizly8828.04.2021 02:46
-
TsunamiBrain08.09.2022 18:33
-
кариетнаа29.10.2020 00:35
-
Александра14200007.04.2022 11:08
-
mishany11122233344417.12.2020 19:17
-
софи25319.05.2023 15:17
-
рамзан01019127189405.03.2023 23:14
-
RU201706.11.2021 11:47