begin
var (a, b, c) := ReadReal3('Длины сторон через пробел:');
if (a = b) and (a = c) then
$'S = {a*a*Sqrt(3)/4,0:f5}, h = {a*Sqrt(3/4),0:f5}'.Println
else Println('Треугольник неравносторонний')
end.
case ReadInteger('Введите номер месяца') of
1, 2, 12: Println('Зима');
3..5: Println('Весна');
6..8: Println('Лето');
9..11: Println('Осень');
else Println('Ошибка')
end
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018
Внимание! Если программа не работает, обновите версию!
Задание №1
begin
var (a, b, c) := ReadReal3('Длины сторон через пробел:');
if (a = b) and (a = c) then
$'S = {a*a*Sqrt(3)/4,0:f5}, h = {a*Sqrt(3/4),0:f5}'.Println
else Println('Треугольник неравносторонний')
end.
Задание №2
begin
case ReadInteger('Введите номер месяца') of
1, 2, 12: Println('Зима');
3..5: Println('Весна');
6..8: Println('Лето');
9..11: Println('Осень');
else Println('Ошибка')
end
end.