135. к заданию 58 учебника.
р. соедини названия программ с устройствами ввода
и вывода, которые они используют.
в лес за информацией
Прогулки Энтика
Мышка-художник
20
Перемещайка
Аквариум

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.

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

не знаю как это учат в школе, но можно сделать так

Переведем десятичную дробь в простую 21,5 = 215 / 10

переведем числитель и знаменатель

Остатки от деления:

      215 |  8 => 7  

       26 |  8 => 2  

        3 |  8 => 3  

Записываем в обратном порядке

Остатки от деления:

       10 |  8 => 2  

        1 |  8 => 1  

Записываем в обратном порядке

Теперь делим в столбик в восьмиричной сс (написать это в тексте нереально конечно)

32 - 2*12 = 32 - 24 =  6  => 2

спускаем 7

67 - 5*12 = 67 - 62 = 5 => 25

дальше пойдут дроби

50 - 4*12 = 50 - 50 = 0 => 25.4

ответ  25.4