Var A,B:real; C:integer; Begin WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); While C <> 0 do Begin Write('Введите два числа: '); ReadLn(A,B); Write('ответ: '); Case C of 1:WriteLn(A+B); 2:WriteLn(A-B); 3:WriteLn(A*B); 4:WriteLn(A/B); End; WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); End; WriteLn('Пока!'); End.
Вывод результат, точно как в условии:
Var A,B:real; C:integer; Begin WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); While C <> 0 do Begin Write('Введите два числа: '); ReadLn(A,B); Write('ответ: '); Case C of 1: if B < 0 then WriteLn(A,B,'=',A+B) else WriteLn(A,'+',B,'=',A+B); 2: if B < 0 then WriteLn(A,'+',-B,'=',A-B) else WriteLn(A,B,'=',A-B); 3: if B < 0 then WriteLn(A,'*(',B,')=',A*B) else WriteLn(A,'*',B,'=',A*B); 4: if B < 0 then WriteLn(A,':(',B,')=',A/B) else WriteLn(A,':',B,'=',A/B); End; WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); End; WriteLn('Пока!'); End.
Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение:
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('ответ: ');
Case C of
1:WriteLn(A+B);
2:WriteLn(A-B);
3:WriteLn(A*B);
4:WriteLn(A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Вывод результат, точно как в условии:
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('ответ: ');
Case C of
1:
if B < 0 then WriteLn(A,B,'=',A+B)
else WriteLn(A,'+',B,'=',A+B);
2:
if B < 0 then WriteLn(A,'+',-B,'=',A-B)
else WriteLn(A,B,'=',A-B);
3:
if B < 0 then WriteLn(A,'*(',B,')=',A*B)
else WriteLn(A,'*',B,'=',A*B);
4:
if B < 0 then WriteLn(A,':(',B,')=',A/B)
else WriteLn(A,':',B,'=',A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Пример:
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
4
Введите два числа: 4
-2.5
ответ: 4:(-2.5)=-1.6
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
1
Введите два числа: -3
-6
ответ: -3-6=-9
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
0
Пока!