Question

Паскаль. Кто первый подредактирует код, чтоб работал, тому 30 баллов! Первому! Программа : Калькулятор var a,b,c,d:integer; Begin; writeln('1 - Сумма'); writeln('2 - Разность'); readln(d); case d of; 1: writeln('Напишите числа'); readln(a,b): C:=a+b; writeln('Сумма =',c): 2: writeln('Напишите числа'); readln(a,b): C:=a-b; writeln('Разность=',c): end; end.

Answer 1

Var
  a,b,c,d:integer;
begin
  writeln('1 - Сумма');
  writeln('2 - Разность');
  readln(d);
  case d of
  1: begin
    writeln('Напишите числа'); readln(a,b);
    C:=a+b; writeln('Сумма =',c)
    end;
  2: begin
    writeln('Напишите числа'); readln(a,b);
    C:=a-b; writeln('Разность=',c)
    end
  end
end.

Answer 2

Program qwer;
uses crt;
var a,b,c,d:integer;
Begin
writeln('1 - Сумма');
writeln('2 - Разность');
readln(d);
case d of
1: begin
writeln('Напишите числа');
readln(a, b);
c := a + b;
writeln('Сумма = ',c);
end;
2: begin
writeln('Напишите числа');
readln(a, b);
c := a - b;
writeln('Разность = ',c);
end;
end;
end.