С помощью паскаля!

+ 0 -

Valerastronski

15 сент. 2015 г., 18:34:47 (8 лет назад)

1)
var x,y:real;
begin
write('Введите число ');
readln(x);
if x<3 then y:=x*x-5;
if (x>=3) and (x<=7) then y:=x;
if x>7 then y:=x-3;
writeln(y)
end.

2)
var x,y,s,p:real;
begin
readln(x,y);
s:=(x+y)/2;
p:=2*x*y;
if x<y then  
   begin   
      x:=s;
      y:=p
      end
   else
      begin
         y:=s;
         x:=p
         end;
writeln('x=',x,'; y=',y)
end.

3)
var 
   a,b,s:real;
   sim:char;
   f:boolean;
Begin
f:=true;
writeln('Введите два числа');
readln(a,b);
writeln('Введите знак операции');
readln(sim);
case sim of
   '+': s:=a+b;
   '-': s:=a-b;
   '*': s:=a*b;
   '/': s:=a/b
   else f:=false
   end;
if f then writeln ('результат ',a,sim,b,' = ',s) 
   else writeln('Введена некорректная арифметическая операция')
End.

4)