В одиннадцатой строке пишет "Встречно else, а ожидалось ;", но весь прикол, что если я поставлю туда ; то тогда он напишет "Встречно else, а ожидался оператор!!! uses crt; var a, b, c: integer; begin writeln ('Что вы хотите...
В одиннадцатой строке пишет "Встречно 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.
Не нашли ответ?
Похожие вопросы