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