Я так понял у вас такое выражение
125(8) + 11101(2) * A2(16) - 141(8)
в скобках нужно указывать систему счисления.
переведу всё в десятичную и посчитаю
125(8)=85(10)
11101(2)=29(10)
A2(16) = 162(10)
141(8)=97(10)
Получается
85 + 29 * 162 - 97 = 4686(10) = 124E(16) = 11116(8) = 1001001001110(2)
Я думаю что г или а. Как-то так даальше смотри сама.
1)
var a,b,c,d:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
ну или
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
2)
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a * b * c;
writeln('произведение чисел равна',d);
end.
3)
var a,b,c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c := a : b;
writeln('деление двух чисел равна',c);
end.
В третем могу ошибится
Program P;
Var
a, n, i : Integer;
S : Integer;
Begin
S := 1;
Write('Enter a ');
ReadLn(a);
Write('Enter n ');
ReadLn(n);
for I:=1 to N do
S := S * a;
WriteLn('a ^ n = ', S);
ReadLn;
End.