• Как найти первые две цифры натурального числа в паскале?

Ответы 1

  • var  n:longint;  i,d:integer;begin  ClrScr;  Write('n='); Read(n);  if n<100 then Writeln(n:2)  else begin    repeat      n:=n div 10;      if n<100 then Writeln(n:2)    until n<=99;  end;  Readkeyend.
    • Автор:

      izzyrbns
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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