Неполучается решить по выдаёт тип то что 'встречено 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. программа не

Manya1316 Manya1316    2   28.07.2019 15:00    0

Ответы
VikaSh86 VikaSh86  03.10.2020 15:42
Program komp;
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
ПОКАЗАТЬ ОТВЕТЫ
ника1700 ника1700  03.10.2020 15:42
1) Если используешь ветвление (метод ЕСЛИ) в твоем случаи метод ИНАЧЕ после каждого ЕСЛИ  использовать не надо должно быть так.

Выберите действие
если + делай следующее
если - делай следующее
если * делай следующее
если / делай следующее
иначе
вы выбрали действие не относящее к программе калькулятор

2) Ты там с именами пользователей чуть чуть накрутил, я исправил посмотри, файл прикрепил, открой прямо в паскале.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика