Var a,b,c,x:real; begin repeat writeln('Введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу'); readln(x); if x=1 then begin writeln('Введите 2 числа'); readln(a,b); c:=a+b; writeln('ответ: ',c); end; if x=2 then begin writeln('Введите 2 числа'); readln(a,b); c:=a-b; writeln('ответ: ',c); end; if x=3 then begin writeln('Введите 2 числа'); readln(a,b); c:=a*b; writeln('ответ: ',c); end; if x=4 then begin writeln('Введите 2 числа'); readln(a,b); c:=a/b; writeln('ответ: ',c); end; if x=0 then writeln('Пока!'); until x=0; end.
21 - не может так как не 1 не 2 на 3 не делится 729 - не может так как 72/3 = 24 >9, 72 > 9+9. LhДругое разбиение протеворечит п2 2912 - не может так как 29 > 9+9, 29 не делится нацело на 3, 291 > 9+9, 291/3 > 9
begin
repeat
writeln('Введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу');
readln(x);
if x=1 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a+b;
writeln('ответ: ',c);
end;
if x=2 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a-b;
writeln('ответ: ',c);
end;
if x=3 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a*b;
writeln('ответ: ',c);
end;
if x=4 then begin
writeln('Введите 2 числа');
readln(a,b);
c:=a/b;
writeln('ответ: ',c);
end;
if x=0 then writeln('Пока!');
until x=0;
end.