В одиннадцатой строке пишет "Встречно else, а ожидалось ;", но весь прикол, что если я поставлю туда ; то тогда он напишет "Встр
ечно else, а ожидался оператор!!!
uses crt; var a, b, c: integer; begin writeln ('Что вы хотите сделать?'); writeln ('1-сложить 2-отнять 3-разделить 4-умножить'); readln (c); clrscrn; if c=1 then read (a, b); writeln (a+b) else if c=2 then read (a, b); writeln (a-b) else if c=3 read (a, b); writeln (a/b) else if c=4; read (a, b); writeln (a*b); else write ("Так, стоп, че за фигня? Где то тут меня надурили..."); end.
begin clrscr; writeln('Что вы хотите сделать?'); writeln('1-сложить 2-отнять 3-разделить 4-умножить'); readln(c); if c = 1 then begin read(a, b); writeln(a + b) end else if c = 2 then begin read(a, b); writeln(a - b) end else if c = 3 then begin read(a, b); writeln(a / b) end else if c = 4 then begin read(a, b); writeln(a * b); end else write('Так, стоп, че за фигня? Где то тут меня надурили...'); readkey end.
<em><u>Но короче и понятнее это написать так:</u></em> uses crt;
var a, b, c: integer;
begin ClrScr; Writeln('Что вы хотите сделать?'); Write('1-сложить 2-отнять 3-разделить 4-умножить'); Readln(c); if (c >= 1) and (c <= 4) then begin Write('Введите через пробел два натуральных числа: '); Read(a, b); case c of 1: Writeln(a + b); 2: Writeln(a - b); 3: Writeln(a / b); 4: Writeln(a * b) end; end else Write('Так, стоп, че за фигня? Где то тут меня надурили...'); ReadKey end.