Question

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

Answer 1

Program z1;
var i,m:integer;
begin
m:=0;
for i:=39 to 5000 do
if (i mod 39=0)and(m<i) then
m:=i;
writeln(m);
end.

Answer 2

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

begin
  WriteLn(5000 div 39*39);
end.

Этот код использует операцию целочисленного деления (`div`), которая возвращает частное от деления двух чисел без остатка. Например, `7 div 2` равно `3`, а не `3.5`. Затем он умножает результат на 39, чтобы получить максимальное число, кратное 39. Этот код выведет на экран число `4998`, которое является ответом на задачу. Вы можете найти другие способы решения этой задачи по ссылкам ниже. Надеюсь, это было полезно для вас. Спасибо, что пользуетесь Bing.