Предмет: Информатика,
автор: theProsto
Напишите, пожалуйста программы для Pascal:
4. Вывести на экран первые 4 степени числа . В качестве значения использовать встроенную константу языка.
5. Дано число N. Проверить истинность высказывания: "Число N является точным квадратом".
Ответы
Автор ответа:
0
var
i : integer;
a : real;
begin
a := 1;
for i := 1 to 4 do
begin
writeln ('pi^', i - 1, ' = ', a);
a := a * pi;
end;
end.
var
n : real;
begin
read (n);
if trunc (sqrt (n)) = sqrt (n) then writeln ('YES') else writeln ('NO');
end.
i : integer;
a : real;
begin
a := 1;
for i := 1 to 4 do
begin
writeln ('pi^', i - 1, ' = ', a);
a := a * pi;
end;
end.
var
n : real;
begin
read (n);
if trunc (sqrt (n)) = sqrt (n) then writeln ('YES') else writeln ('NO');
end.
Похожие вопросы
Предмет: Математика,
автор: maslakovaulia88
Предмет: Английский язык,
автор: avdoevanazli
Предмет: Математика,
автор: jojok87
Предмет: Обществознание,
автор: ЮльКоооу