76

Напишите, пожалуйста программы для Pascal: 4. Вывести на экран первые 4 степени числа.…

03 февраля 2023

Напишите, пожалуйста программы для Pascal: 4. Вывести на экран первые 4 степени числа. В качестве значения использовать встроенную константу языка.5. Дано число N. Проверить истинность высказывания: «Число N является точным квадратом» .

категория: информатика

94

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.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...