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