Question

Program zadacha3; var x, y : real; rez : char; begin write('x='); readln(x); write('y='); readln(y); write('Введите число'); readln(rez); case rez of '1' : writeln('x+y=', x+y); '2' : writeln('x-y=', x-y); '3' : writeln('x*y=', x*y); '4' : writeln('x/y=', x/y); else writeln('Неправельное Число') end; end. Программа в паскале типо вычесления 4 способами как сделать чтобы сночала спрашивался способ а потом уже выбирать числа

Answer 1

Var
 x, y : real;
 rez : char;
begin
write('Выберите способ:');
 readln(rez);
case rez of
'1' : begin
write('x=');
readln(x);
write('y=');
readln(y);
writeln('x+y=', x+y);
end;
'2' : begin 
write('x=');
readln(x);
write('y=');
readln(y);
writeln('x-y=', x-y);
end;
'3' : begin
 write('x=');
 readln(x);
write('y=');
 readln(y);
writeln('x*y=', x*y);
end;
'4' : begin
 write('x=');
 readln(x);
write('y=');
 readln(y);
writeln('x/y=', x/y);
end;
else
 writeln('Неправельное Число')
end;
end.