Ответы на вопрос:
Var a,b: integer; begin b: =0; for a: =100 to 999 do begin if (a mod 10=0)then b: =b+1; end; writeln('количество трёхзначных чисел,кратных 10, равняется ',b); end.
Популярно: Информатика
-
AnnWer14.01.2023 18:07
-
yyydomayyy06.07.2021 00:52
-
clon424.09.2021 10:29
-
юрпа07.08.2021 01:22
-
nikita200310266xcute11.12.2022 03:01
-
Matvei33716.09.2022 23:27
-
Ksenia20066kislova02.12.2020 00:40
-
olcheymaaaa17.06.2020 21:39
-
Vovachka115.09.2022 11:29
-
Раола17.03.2023 16:45