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