Написать решение двух примеров в питоне.

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.

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

     Мой любимый предмет это - информатика!
На уроках информатики мы познаём компьтерный мир. Сотни программ созданны для нашего поколения чтобы создавать различные презентации, мультфильмы, анимации, рисунки и много всего другого, что так-же нам интересно!
     Если почитать в интернете о данной науке, то мы можем сразу сделать вывод, что на самом деле придуманно очень большое кол-во программ и приложений. Мы можем узнать погоду, написать сочинение или реферат, подготовить презентацию, отправить любой файл через доступные приложения и программы, как на компьтере так и на телефоне, а самое главное всё отправляется в один миг - и получатель сообщения  может сразу воспользоваться файлом. Существую так-же различные  форматы файлов, для удобствия получать на любом устройстве.
     Насчёт данной науки я могу сказать так: наша цивилизация развивается очень быстро и в этом ей информатика!