Решите задачу по информатике в Паскалях. Найти максимальное из натуральных чисе, не...

Question

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

Answer 1

Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
   A:=A-1;
WriteLn(A);
End.

Answer 2

1 2 3 4 5 6 7 8 9 10 11 program chisla; uses crt; var i,max:integer; begin  clrscr;  max:=1;  for i:=1 to 5000 do  if (i>max) and (i mod 39=0) then max:=i;  write('max= ',max);  readln; end.

Comments

const k=5000;d=39;
var i:integer;
f:boolean;
begin
i:=k;f:=false;
while (i>d)and(not(f)) do
begin
dec(i);
if i mod d =0 then f:=true
end;
writeln(i);
readln
end.

---

это по порядку

---

Ответ можно редактировать))