Задание:
ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC! 1) Ввести с помощью read (); трехзначное число N. В нем зачеркули 1-ю слева цифру и приписали ее в концечисла. После этого число умножили на 10. Вывести полученное число 2) Ввести с помощью read (); числа A — сторона квадрата, R — радиус окружности (тип real). Выяснить, площадь какой фигуры больше: квадрата или круга.
Решение:
Program Zadacha; var N: integer; M: integer; Begin Read (N); M: =N div 100; M: =M+(N mod 100) div 10)*10; M: =M+(N mod 10)*100; WriteLn (M); ReadLn; ReadLn; End.
Знаете другой ответ?