Question

7. Определить, равен ли квадрат заданного четырехзначного числа кубу
суммы цифр этого числа. Составить программу.
Даны действительные положительные числа a, b, c. Определить,
существует ли треугольник с такими сторонами. Составить блок-схему
и программу.

Answer 1

Program z1;

Uses crt;

Var x,s,kv:word;

i,n:byte;

Begin clrscr;

read(x);

kv:=sqr(x);

n:=0;

s:=0;

for i:=1 to 3 do

begin

s:=x mod 10;

x:=x div 10;

n:=n+s;

end;

s:=s*s*s;

if (kv=s) then writeln('Da ravno')

else writeln('net ne ravno');

writeln('n=',n);

readln;

end.