Предмет: Информатика,
автор: Elizaveta222
помогитеее срочно)
определите и выведите на экран количество натуральных чисел, меньших 1000 и делящихся на 5 и 7 одновременно.
составить надо программу на паскале
Ответы
Автор ответа:
0
var
i,k:integer;
begin
k:=0;
for i:=35 to 1000 do
if (i mod 5 = 0) and (i mod 7 = 0) then k:=k+1;
writeln (k);
end.
Интересные вопросы
Предмет: Математика,
автор: atlana76
Предмет: Алгебра,
автор: kseniasalatova13
Предмет: Математика,
автор: kytovuiivan
Предмет: Обществознание,
автор: FUUUUUUUUUUU
Предмет: Биология,
автор: ЛапкаКролика