Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №16-1 / 16-1 / zadanie_1
.pas program Zadanie_1;
var
G,K1,K2,S:real;
begin
writeln ('‚ўҐ¤ЁвҐ § 票Ґ 1 Є вҐв :');
readln (K1);
writeln ('‚ўҐ¤ЁвҐ § 票Ґ 2 Є вҐв :');
readln (K2);
G:=sqrt(sqr(K1)+sqr(K2));
S:=0.5*K1*K2;
writeln ('‡ 票Ґ ЈЁЇ®вҐг§л: ', G:10:4);
writeln ('Џ«®й ¤м ваҐгЈ®«мЁЄ : ', S:10:4);
end.
var
G,K1,K2,S:real;
begin
writeln ('‚ўҐ¤ЁвҐ § 票Ґ 1 Є вҐв :');
readln (K1);
writeln ('‚ўҐ¤ЁвҐ § 票Ґ 2 Є вҐв :');
readln (K2);
G:=sqrt(sqr(K1)+sqr(K2));
S:=0.5*K1*K2;
writeln ('‡ 票Ґ ЈЁЇ®вҐг§л: ', G:10:4);
writeln ('Џ«®й ¤м ваҐгЈ®«мЁЄ : ', S:10:4);
end.