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

Question

Информатика

Аксён

20 августа, 01:39

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

+1

Ответы (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.