Найти количество натуральных чисел в диапазоне от 50 до 99 кратные 3 и 7

anyakoi anyakoi    2   11.06.2019 00:10    1

Ответы
tanyaraeva2017 tanyaraeva2017  09.07.2020 07:18
Program z7;
var i,w:integer;
begin
 w:=0;
 for i:=50 to 99 do begin
  if (i mod 3 = 0) and (i mod 7 = 0) then
    w:=w+1;
  end;
  writeln(w);
end.   
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика