1. Составить линейную программу, печатающую значение TRUE, если указанное высказывание...

Question

1.
Составить линейную программу, печатающую значение TRUE, если указанное
высказывание является истинным, и FALSE в противном случае:

Квадрат
заданного трехзначного числа равен кубу суммы цифр этого числа.

2.
Дано двузначное число. Определить кратна ли трем сумма
его цифр.

3.
Известен рост трех человек. Определить, одинаков ли он.

Answer 1

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)