Задать вопрос Регистрация
Помочь другим

  • написать программу на Паскале: А) Условие задачи №1: если введенное целое число является трехзначным, то удалить из него среднюю цифру; если число двухзначное, то удвоить крайние цифры; иначе – выдать сообщение «Ошибка ввода».

Ответы 1

  • vari,x,n:integer;s1,s2,s3:string;beginwrite('Введите число: ');readln(x); if (x >999) or (x<10) then write('Ошибка ввода!');if (x<999) and (x>99) then beginstr(x,s1);delete(s1,2,1);write(s1);end;if (x<100) and (x>9) then beginn:= x div 10 *2;x:=x mod 10 *2; str(n,s1); str(x,s2); s3:=s1+s2; write(s3);end;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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