Показать сообщение отдельно

  #13  
Старый 20.06.2007, 15:50
NetMan
Участник форума
Регистрация: 09.02.2004
Сообщений: 122
С нами: 11710201

Репутация: 134
По умолчанию

Я же дал новый рабочий код!
Код:
uses crt;
var
    a,b,c:real;
    action:char;
begin
      write('a='); readln(a);
      write('b='); readln(b);
      write('action='); readln(action);
      case action of
        '+':c:=a+b;
        '-':c:=a-b;
        '/':c:=a/b;
        '*':c:=a*b;
      end;
      writeln(a:1:3,action,b:1:3,'=',c:1:3);
      readln;
end.
 
Ответить с цитированием