Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

В одиннадцатой строке пишет "Встречно 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.

Ответ оставил Гость

Uses
  crt;

var
  a, b, c: integer;

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.

Но короче и понятнее это написать так:
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.