|
|
|
|
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 6
| Задача:
Проверить, является ли заданное число А квадратом целого числа. С клавиатуры вводится число А. Результат выводится на экран в удобном для восприятия виде. Примечание: использовать функцию вычисления целой части числа trunc и функцию извлечения корня sqrt.
|
| Решение: |
| > > Скачать< < |
program task6;
var a,kv:real;
r:integer;
begin
writeln('VVEDITE CHISLO');
readln(a);
kv := sqrt(a);
{KOREN IZ A}
r := trunc(kv);
{OTBROS DROBNOI CHASTI OT kv PREVRASCHENIE V ZELOE}
{ writeln(r);
}
r := sqr(r);
{PROVERKA NA KVADRAT}
if r=a then writeln('kvadrat') else writeln('ne kvadrat');
readln;
end.
|
|
| |
