
20.06.2007, 16:54
|
|
Познающий
Регистрация: 14.04.2007
Сообщений: 46
Провел на форуме: 842554
Репутация:
13
|
|
Вот мой способ
uses crt;
var
a,b,s,c:integer;
begin
write('>'); readln(a,c,b);
write(a);
case c of
'+':write('+');
end;
write(b);
s:=a+b;
writeln('=',s);
end.
Почему он не работает ?
|
|
|