var
a: real;
k: byte;
begin
writeln('1 - l okp.');
writeln('2 - r okp.');
writeln('3 - d okp.');
readln(k);
readln(a);
write('S = ');
case k of
1: writeln(sqr(a) / (4 * Pi):0:2);
2: writeln(Pi * sqr(a):0:2);
3: writeln(Pi * sqr(a / 2):0:2);
else writeln('?');
end;
end.
var y, x: <em>real</em>;
begin
write('x = ');
read(x);
y:=sqr(x)-6*x;
if (y>=0) then begin y:=sqrt(y)/(x+3);
write('y = ', y:5:3);
end
else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')
end.
Program vika;
var x, y : integer;
begin
writeln ('Ведите x');
readln (X);
writeln ('Ведите y');
readln (y);
if
(x>0) and (y>0) then writeln (' В 1');
else
if (x>0) and (y<0) then writeln ('В 4');
if
(x<0) and (y>0) then writeln ('Во 2');
else
if (x<0) and (y<0) then writeln ('В 3');
end.
немного исправил.
Это рекурсия, F генерирует число (n+1) и (n+2), если n< 5
При вводе n =1 программа выводит на экран числа, равные (п+1) и (n+2 ), если раннее генерированное n<5 Вот эти числа:
1
2
3
4
5
6
5
4
5
6
3
4
5
6
5
Х=187
x>0
да
у=2х
у=2*187
у=374