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

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

Question

Каллисфен

8 сентября, 10:54

+2

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