Question

Решите эти 2 задачи. Заранее спасибо !!!

Answer 1

ЗАДАЧА 2
program Kirito1131_Menu;
var punkt :integer;
Begin
  WriteLn('Выберите день недели (от 1 до 7): ');
  Read(punkt);
  if punkt=1 then WriteLn('Понедельник: Информатика, Англиский язык, Геометрия, История, Общество, Русский язык');
  if punkt=2 then WriteLn('Вторник: География, Физкультура, Литература, Химия, История, Англиский язык');
  if punkt=3 then WriteLn('Среда: Геометрия, Физика, Химия, Алгебра, Труд, Физкультура');
  if punkt=4 then WriteLn('Четверг: Информатика, Англиский язык, Литература, Алгебра, Биология, ИЗО');
  if punkt=5 then WriteLn('Пятница: География, Русский язык, Алгебра, Биология, Литература, Физика');
End.

ЗАДАЧА 1
program Kirito1131;
var n, H, s :real;
Begin  WriteLn('Введите значение признака: ');
  Read(n);
  WriteLn('Введите параметр: ');
  Read(H);
  if n=1 then s:=pi*H*H;
  if n=2 then s:=pi*H*H/4;
  if n=3 then s:=H*H/4*pi;
  WriteLn('Площадь равна: ', s);
End.