Описать функцию square(k) логического типа, возвращающую true, если целый параметр k(> 0) является квадратом некоторого числа, и false в противном случае. паскаль

273

335

Посмотреть ответы 2

Ответы на вопрос:

Jnash99

Информатика

4,4(40 оценок)

Var k: integer; function square(k: integer): boolean; begin if sqr(trunc(sqrt( = k {проверяем, является ли квадрат округлённого квадратного корня самим числом} then square : = true else square : = false; end; begin read(k); writeln(square(k)); end.

elenafedorova

Информатика

4,6(71 оценок)

Var a: integer; begin writeln('введите трёхзначное число'); readln(a); writeln('1: ',(a div 100 < > (a div 10) mod 10)and((a div 10) mod 10 < > a mod 10)and(a mod 10 < > a div 100)); write('2: '); if (a div 100 < = (a div 10) mod 10) then write(true) else div 100) mod 10 < = a mod 10)); end.