Question

люди! здесь есть информатики? мне срочно нужно сделать лазарус простейший калькулятор! у меня ошибка все время выходит! не получается

Answer 1

var a,b:integer;

c:char;

begin

readln(a);

readln(c);

if c='+' then begin readln(b); writeln(a+b); end;

if c='-' then begin readln(b); writeln(a-b); end;

if c='*' then begin readln(b); writeln(a*b); end;

if (c='/') or (c=':') then begin readln(b); writeln(a/b); end;

end.

 

Программа рабочая, но в лазарусе нету вывода на экран(если не ошибаюсь), если надо ввод/вывод ассоциировать с файлом - напиши