Var k: integer;
function square(k: integer): boolean;
begin
if sqr(trunc(sqrt(k))) = k {Проверяем, является ли квадрат округлённого квадратного корня самим числом}
then
square := true
else
square := false;end;
begin
read(k);
writeln(square(k));
<span>end.</span>
<h2>Код (выполнен и написан на языке С++)</h2>
#include <iostream>
#include <math.h> // для функции sqrt()
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int x;
cout << "Введите x: ";
cin >> x;
if((x + 5) < 0){
cout << "Корень из отрицательного числа не вычисляется!" << endl;
return 0;
}
else {
cout << "Корень из " << x + 5 << " равен " << sqrt(x + 5) << endl;
}
return 0;
}
<h2>Проверка:
</h2>
Введите x: 139
Корень из 144 равен 12
Введите x: -5
Корень из 0 равен 0
Введите x: -6
Корень из отрицательного числа не вычисляется!
Var
i:integer;
a:array[1..11]of integer;
begin
for i:= 1 to 11 do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
write('Кратны 2: ');
for i:=1 to 11 do
if a[i] mod 2=0 then write(a[i],' ');
<span>end. </span>
5 (10cc) =101 (2 cc)
9 (10cc) =1001 (2cc)
----------------------------------------------
1001
+101
--------
1110 (2cc) = 16 (8cc) = E (16cc) = 14 (10cc)