Решите задачу по информатике в Паскалях.
Найти максимальное из натуральных чисе, не превышающих 5000, которое нацело делится на 39
Найти максимальное из натуральных чисе, не превышающих 5000, которое нацело делится на 39
More Questions From This User See All
Answers & Comments
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
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.