Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка на 15 и 17 одновременно

Question

Информатика

Груняка

26 мая, 05:58

Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка на 15 и 17 одновременно

+3

Ответы (1)

Знаете ответ?

Таня · Answer 1

Program danya;

uses crt;

var i, k:integer;

begin

clrscr;

k:=0;

for i:=1000 to 9999 do begin

if (i mod 15=0) and (i mod 17 = 0) then k:=k+1; end;

Writeln ('Количество чисел = ', k) ;

readln;

end.