var
s,r,a,b: real;
k: byte;
begin
repeat
write ('1 - s kruga; 2 - s pryamougolnika: '); readln(k);
until (k=1) or (k=2);
if k=1 then begin
write ('radius: '); readln(r);
s: =pi*r;
writeln ('s = ',s: 0: 5);
end else begin
write ('a = '); readln(a);
write('b = '); readln(b);
s: =a*b;
writeln ('s = ',s: 0: 4);
end;
readln;
end.
в 4 раза меньше тоесть делим на 4.
8÷4=2(у димы)
дима+маша=?
2+8=10
var
s,r,a,b: real;
k: byte;
begin
repeat
write ('1 - s kruga; 2 - s pryamougolnika: '); readln(k);
until (k=1) or (k=2);
if k=1 then begin
write ('radius: '); readln(r);
s: =pi*r;
writeln ('s = ',s: 0: 5);
end else begin
write ('a = '); readln(a);
write('b = '); readln(b);
s: =a*b;
writeln ('s = ',s: 0: 4);
end;
readln;
end.
в 4 раза меньше тоесть делим на 4.
8÷4=2(у димы)
дима+маша=?
2+8=10