Самый обычный калькулятор Опции

[Kolyancz]

Задача вообщем то не сложная, только не могу придумать как написать одну штуку...

Вводится число 2
На экране число 2

Вводится знак +
На экране число 2

Вводится число 5
На экране число 5

Нажимается Enter
На экране число 7...

Вот так вот...
У кого-нибудь есть идеи???

[Kolyancz]

Есть у кого-нибудь калькулятор за 20 рублей???)))
а то 10 рублевый не работает... ;(


Хочу, что бы двухзначные циферки тоже работали...;(;(;(

Сообщение отредактировано: Kolyancz - 5.03.2007 17:16

[Malice]

Так нельзя разве:

var k,i,j:integer;
z:char;
s:string;
begin
clrscr;
i:=0; j:=0;
readln(s);
k:=1; while ((pos(s[k],'+-/*')=0) and (k<length(s))) do inc (k);
val(copy(s,1,k-1),i,j);
z:=s[k];
val(copy(s,k+1,255),j,k);
case z of
'+': k:=i+j;
'-': k:=i-j;
'/': k:=i div j;
'*': k:=i*j;
end;
writeln;
writeln(i,' ',z,' ',j,'=',k);
end.

?
Проверки только на корректность нужны..