Информатика 9 класса, в Паскале.

[Pavel_Ghost]

Первая:
Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
___

Вторая:
Определить по номеру месяца, к какому кварталу он относится.

[Grag]

Сообщение от Pavel_Ghost

Вторая:
Определить по номеру месяца, к какому кварталу он относится.

case Month of
  1..3:Kvartal:=1;
  4..6:Kvartal:=2;
  7..9:Kvartal:=3;
  10..12:Kvartal:=4
end;

[Ol'ga_new]

Первое ещё проще:
c:=sqrt(sqr(A)+sqr(b));
S:=a*b/2;
где с-гипотенуза, а,b-катеты, S-площадь!

[Z1000000]

program Lab2;
var
 K1,K2: Real;
begin
writeln('Введите первый катет: ');
readln(K1);
writeln('Введите второй катет: ');
readln(K2);
writeln ('Гипотинуза : ',sqrt(sqr(K1)+sqr(K2)):10:3);
writeln ('Площадь : ',0.5*K1*K2:10:3);
end.

program Lab3;
var
 N : Integer;
 N_kv : Integer;
begin
writeln ('Введите номер месяца: ');
readln(N);
if (N > 12) or ( N<1 ) then begin writeln('Не существует быть месяца с таким номером');Exit;end;
if N < 4 then N_kv := 1
else if N < 7 then N_kv := 2
else if N < 10 then N_kv := 3
else N_kv := 4;
writeln ('Квартал : ',N_kv);
end.