Составить программу которая подсчитывает количество трехзначных чисел кратных 7
139
ОТВЕТЫ
Var a: integer;
begin
a:=0;
for var i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.
begin
a:=0;
for var i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.
118
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Феофилакт
Когда в школе объявили день вежливости, каждый мальчик из ...
2019-01-22 03:25:30
Радиевич
Алгоритм вычисления значения функции F(n), где n – натуральное ...
2019-01-22 03:23:15
Марк
Здравствуйте! Подскажите пожалуйста. Паскаль: Дано число, превышающее 99. Определить, ...
2019-01-22 03:22:10
Астерий
Подскажите пожалуйста решить!!!!!!! Очень надо!!!! ...
2019-01-22 03:21:19