Задание:
Написать программу на Паскале: «если введенное целое число является трехзначным, то удалить из него среднюю цифру; если число двухзначное, тоудвоить крайние цифры; иначе – выдать сообщение «Ошибка ввода» ."
Решение:
program z1; uses crt; var n: integer; beginwriteln ('вв число'); readln (n); if n>999 then writeln ('ошибка ввода') elseif n>100 then writeln (n div 100)*10+n mod 10) elsewriteln (n div 10)*2)*10)+(n mod 10)*2); end.
Знаете другой ответ?