Program by_Relhem;
var a,b,c,S:real;
begin
writeln ('Введите гипотенузу и катет, разделяя их пробелом');
read (a,b);
if a>b then
c:=sqrt(sqr(a)-sqr(b));
if b>a then
c:=sqrt(sqr(b)-sqr(a));
S:=0.5*(a*b);
writeln ('Катет: ',c, ' Площадь: ',S);
end.
Var a, b:real;
I:integer;
begin
I:=1;
b:=0;
while I <> 10 do
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
____________________
var a, b:real;
I:integer;
begin
I:=0;
b:=0;
repeat
read (a);
b:=b+a;
I:=I+1;
until I=10;
b:=b/10;
writeln (b);
end.
_____________________
var a, b:real;
I:integer;
begin
b:=0;
for I:=1 do 10 to
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
Лень-нехочу-небуду-нет дз-плохая оценка
0+1 = 1
1*2 = 2 (или 1+1 = 2)
2+1 = 3
3*2 = 6
6*2 = 12
12*2 = 24
24+1 = 25
25*2 = 50