Впаскале. изменить программу так, что бы она находила: 1)сумму четырёх чисел 2)произведения чисел 3)квадрат каждого числа

Program SumProizDrob;
Uses crt;
var n:integer;
c,s,pr,dr:real;
begin
clrscr;
write('Input Numbers:');
n:=1;s:=0;pr:=1;dr:=0;
repeat
readln(c);
dr:=frac(c);
writeln('drobnaya chast:',dr:4:4);
n:=n+1;

if (c>9) and (c<51) then
s:=s+c;

if (c<22) then
pr:=c*pr;

until (c=1000);
writeln;

writeln('Summa =',s:4:4);
writeln('Proizved=',pr:4:4);
readkey;

end.

1.
1)    219[10]  > 21[10]

2)    25[10] < 71[10]

Объяснение:

[10] - десятичная система

2.
ответ:

а) 211212 б) 201212

Объяснение:

Т.к. это двоичная система, то полный десяток это 2. То есть:

1 + 1 = 2

1 + 2 = 11

2 + 2 = 12

а) 101012

  10112
 211212

б) 100012

101112

201212

3.
ответ: 1011001_(2)

Объяснение:

Было бы неплохо, конечно, еще указать в каком из четырех обратных кодов это надо представить, но ладно. Разберем случай первого обратного кода:

1) отбросить знак минус (-38) => 38

2) перевести в двоичный код: 38_(10) = 100110_(2)

3) инвертировать все биты: 100110_(2) => 011001_(2)

4) приписать слева единицу, как знак отрицательного числа: 011001_(2) => 1011001_(2)

выводит на экран нечётные числа от 1 (включительно) до n (не включительно) в строку через пробел

Объяснение:

n = int(input('n = ')) - ввод числа n

for j in range (1, n, 2): - цикл от 1 (включительно) до n (не включительно) с шагом 2

1 (1 + 2 = 3 < n, да)

3 (3 + 2 = 5 < n, да)

5 (5 + 2 = 7 < n, да)

и так далее пока новый шаг не даст число равное или больше n (число >= n), после чего цикл закончится

print (j, end=' ') - вывод результата каждого шага цикла на экран в строку через пробел, т.к. строка (из-за параметра end=' ') заканчивается пробелом