Pascal

Найти 20 первых натуральных чисел, делящихся нацело на 13 или на 17 и находящихся в интервале, левая граница которого равна 500.

Question

Информатика

Муфаддал

21 ноября, 09:09

Pascal

Найти 20 первых натуральных чисел, делящихся нацело на 13 или на 17 и находящихся в интервале, левая граница которого равна 500.

+1

Ответы (1)

Знаете ответ на вопрос?

Онислав · Answer 1

Program z;

var x, k:integer;

begin

x:=500;

k:=0;

while k<20 do

beginif (x mod 13=0) or (x mod 17=0) then begin writeln (x) ; k:=k+1; end;

x:=x+1;

end;

end.

PascalНайти 20 первых натуральных чисел, делящихся нацело на 13 или на 17 и находящихся в интервале, левая граница которого равна 500.

Pascal

Найти 20 первых натуральных чисел, делящихся нацело на 13 или на 17 и находящихся в интервале, левая граница которого равна 500.