Задание полностью
Внимательно прочитай текст:
Все эти животные живут, дышат, едят. Все они дикие животные, все имеют хвосты. Это их общие свойства. У лисы и медведя лапы и когти. Они хищники. У слона и лося – ноги. Они травоядные животные. Лиса тявкает. Медведь рычит. У слона бивни и хобот, а у лося рога и копыта, которых нет ни у лисы, ни у медведя.
Заполни таблицу:
Общие свойства для всех объектов
живут, дышат, едят, дикие животные, имеют хвосты
Общие свойства для пар объектов
лиса+медведь - есть лапы, есть когти, хищники
слон+лось - ноги, травоядные
Она на Pascal.
var a,last_num,first_num:integer;
begin
Write('Введите число');
read(a);
last_num:=a mod 10;
first_num:=a;
while first_num>10 do
begin
first_num:= first_num div 10;
end;
writeln('Последняя цифра ', last_num, ', Первая цифра ', first_num);
if first_num > last_num then
writeln('Первая цифра больше')
else if first_num = last_num then
writeln('Они равны')
else if last_num > first_num then
writeln('Последняя цифра больше');
end.