Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>
100,1,4,9,15,25,36,49,64,81
............................
Что бы из 10-ной с.с перевести в 2-ную,8-ричную,16-ричную системя счисления необходимо поделить данное число на основание с.с в которую хотим перевести числа,т.е у на число 137 (10)"в десятичной с.с" мы ходим перевести в двоичную с.с то мы число 137 делим на основание с.с (т.е на 2) до тех пор пока частное не станет меньше делимого,затем записываем ответ с последнего частного и всех последующих остатков(т.е с конца выражения) , и так же в других с.с (делим число на 8, потом делим число на 16)
а что бы выполнить перевод из 2-ной,8-ной,16-ной с.с необходимо расставить степени числа начиная от знака равно(справа на лева ) от нулевой степени по n-ную степень,затем затем записать разложить данное число на сумму произведения основания с.с и составляющую числа.
так что как то так,смотреть рисунки =)
в 16-ричной с.с алфавит системы составляют числа от 0 до 9,а до 16 цифр дополняется буквами: A=10, B=11, C=12, D=13, E=14,F=15