Задание:
Дано вещественное число. Напишите программу, которая возводит в квадрат целую часть данного числа и выводит на экран мониторарезультат.
Решение:
program test; var number: real; temp: integer; begin write ('Enter the number: '); readln (number); temp: =trunc (number); writeln (temp, '^2=', temp*temp); readln; end.
Знаете другой ответ?