1.Створіть програму для обчислення довжини кола та площі круга за введеним радіусом. (Використати функцію pi модуля math) 2. Створіть програму для обчислення площі круга за введеним діаметром. (Використати функцію pi модуля math) 3. Створіть програму для обчислення радіуса кола за введеною довжиною кола.(Використати функцію pi модуля math) 4. Створіть програму для обчислення діаметра кола за введеною площею круга.(Використати функції pi та sqrt модуля math) 5. Створіть програму для обчислення довжини гіпотенузи прямокутного трикутника, за введеними катетами. (Використати функцію hypt модуля math) 6. Створіть програму для обчислення довжини катета прямокутного трикутника, за введеними катетом та гіпотенузою. (Використати функції sqrt та pow модуля math)
begin
case ReadInteger('Номер месяца (1-12):') of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.
Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
Write('Номер месяца (1-12): '); Read(n);
case n of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.