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

Ответы 3

  • Ответ можно редактировать))
  • 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.
    • Автор:

      annaz4nk
    • 6 лет назад
    • 0
  • Var A:integer;BeginA:=5000;While A mod 39 <> 0 do   A:=A-1;WriteLn(A);End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years