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.

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