• Написать программу, которая проверяет является ли введенное число двузначным или нет. Если условие выполняется, то на экран выводятся число десятков и единиц исходного числа, иначе выводится сообщение "Число двузначным не является".

Ответы 1

  • //Pascal ABC.NET 3.1 сборка 1256Var a:integer; s:string;beginreadln(a);s:=inttostr(a);if length(s)=2 then  begin  writeln('Десятков:',s[1]);  write('Единиц:',s[2]); end else writeln('Число двузначным не является');end.Пример ввода:27Пример вывода:Десятков:2Единиц:7
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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