Задание полностью
Внимательно прочитай текст:
Все эти животные живут, дышат, едят. Все они дикие животные, все имеют хвосты. Это их общие свойства. У лисы и медведя лапы и когти. Они хищники. У слона и лося – ноги. Они травоядные животные. Лиса тявкает. Медведь рычит. У слона бивни и хобот, а у лося рога и копыта, которых нет ни у лисы, ни у медведя.
Заполни таблицу:
Общие свойства для всех объектов
живут, дышат, едят, дикие животные, имеют хвосты
Общие свойства для пар объектов
лиса+медведь - есть лапы, есть когти, хищники
слон+лось - ноги, травоядные
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.
Всё проверено, удачи:)