Var k:integer; a,b,s:real; begin writeln('Введите цифровой код (1 или 2):'); readln(k); case k of 1: begin write('Длина ребра куба a = '); readln(a); s:=6*a*a; writeln('Общая площадь поверхности = ',s); end; 2: begin write('Катеты прямоугольного треугольника a, b = '); readln(a,b); s:=a*b/2; writeln('Площадь треугольника = ',s); end; else writeln('Ошибка ввода'); end; end.
Пример: Введите цифровой код (1 или 2): 2 Катеты прямоугольного треугольника a, b = 3 4 Площадь треугольника = 6
Все эти животные живут, дышат, едят. Все они дикие животные, все имеют хвосты. Это их общие свойства. У лисы и медведя лапы и когти. Они хищники. У слона и лося – ноги. Они травоядные животные. Лиса тявкает. Медведь рычит. У слона бивни и хобот, а у лося рога и копыта, которых нет ни у лисы, ни у медведя.
begin
writeln('Введите цифровой код (1 или 2):');
readln(k);
case k of
1: begin
write('Длина ребра куба a = ');
readln(a);
s:=6*a*a;
writeln('Общая площадь поверхности = ',s);
end;
2: begin
write('Катеты прямоугольного треугольника a, b = ');
readln(a,b);
s:=a*b/2;
writeln('Площадь треугольника = ',s);
end;
else writeln('Ошибка ввода');
end;
end.
Пример:
Введите цифровой код (1 или 2):
2
Катеты прямоугольного треугольника a, b = 3 4
Площадь треугольника = 6
Задание полностью
Внимательно прочитай текст:
Все эти животные живут, дышат, едят. Все они дикие животные, все имеют хвосты. Это их общие свойства. У лисы и медведя лапы и когти. Они хищники. У слона и лося – ноги. Они травоядные животные. Лиса тявкает. Медведь рычит. У слона бивни и хобот, а у лося рога и копыта, которых нет ни у лисы, ни у медведя.
Заполни таблицу:
Общие свойства для всех объектов
живут, дышат, едят, дикие животные, имеют хвосты
Общие свойства для пар объектов
лиса+медведь - есть лапы, есть когти, хищники
слон+лось - ноги, травоядные