1)
uses crt;
const g=9.82;
var H,t: real;
begin
clrscr;
write (H=);
readln (H);
t:=sqrt(2*H/g);
writeln (t=,t:5:2);
end.
2)
uses crt;
var h,a,b,S: real;
begin
clrscr;
write (h=);
readln (h);
write (a=);
readln (a);
write (b=);
readln (b);
S:=1/2*(a+b)*h;
writeln (S=,s:5:2);
end.
3)
uses crt;
const N=8;
var
i: integer;
ch: array [1..N] of char;
begin
clrscr;
for i:=1 to N do
readln (ch[i]);
writeln ();
for i:=1 to N do
writeln (ch[i]);
end.
4)
uses crt;
var
A,B,R:real;
begin
clrscr;
write (A=);
readln (A);
write (B=);
readln (B);
R:=B;
R:=A;
A:=B;
writeln (A=,A);
writeln (B=,R);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.