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

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

Question

Информатика

Галя

2 ноября, 23:27

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

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

+3

Ответы (2)

Знаете ответ на вопрос?

Акулина · 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.

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

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

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