Неполучается решить по выдаёт тип то что 'встречено else,а ожидался оператор 'всё кто знает скажите program komp; var a,b : integer; x,s,k : string; begin writeln('введите своё имя: '); readln(x); if x = 'антон' then writeln('добро , антон! '); writeln('выбирите действие: '); writeln('калькулятор'); readln(s); if s = 'калькулятор' then writeln('выбирите знак(+/,*): '); readln(k); begin begin if k = '+' then writeln('введите пример: '); readln(a,b); writeln('ответ: ', a+b) else if k = '-' then writeln('введите пример: '); readln(a,b); writeln('ответ: ', a-b) else if k = '*' then writeln('введите пример: '); readln(a,b); writeln('ответ: ', a*b) else if k = '/' then writeln('введите пример: '); readln(a,b); writeln('ответ: ', a/b); end; end. программа не
var
a,b : integer;
x : string; k:char;
begin
write('Введите своё имя:');
readln(x);
writeln('Добро
writeln('КАЛЬКУЛЯТОР');
writeln('Выберите знак (+,-,/,*):');
readln(k);
writeln('Введите два числа:');
readln(a,b);
case k of
'+': writeln('ОТВЕТ:', a+b);
'-': writeln('ОТВЕТ:', a-b);
'*': writeln('ОТВЕТ:', a*b);
'/': writeln('ОТВЕТ:', a/b);
end;
end.
Пример:
Введите своё имя:Антон
Добро Антон
КАЛЬКУЛЯТОР
Выберите знак (+,-,/,*):
+
Введите два числа:
5 9
ОТВЕТ:14
Выберите действие
если + делай следующее
если - делай следующее
если * делай следующее
если / делай следующее
иначе
вы выбрали действие не относящее к программе калькулятор
2) Ты там с именами пользователей чуть чуть накрутил, я исправил посмотри, файл прикрепил, открой прямо в паскале.