Решите задачу в Паскалях.

найти максимальное из натуральных чисел не превышающих 5000 которое нацело делится на 39

Question

Евгена

21 апреля, 01:55

+1

Ответы (1)

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

Матрёна · Answer 1

Program z1;

var i, m:integer;

begin

m:=0;

for i:=39 to 5000 do

if (i mod 39=0) and (m
m:=i;

writeln (m) ;

end.

Решите задачу в Паскалях.найти максимальное из натуральных чисел не превышающих 5000 которое нацело делится на 39