
20.06.2007, 15:50
|
|
Участник форума
Регистрация: 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.
|
|
|