Радиограмма расшифровывается однозначно: УЖАТАХТ
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
Var
a: array[1..10] of integer;
i, p, s: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1; s:=0;
for i:=1 to 10 do
begin
p:=p*a[i];
inc(s, a[i]);
end;
writeln(s);
writeln(p);
<span>end.</span>
Выделены отдельно Р и S в 4 и 6 блоке ( можно их не писать , а P и S записать в 9 блоке( в нем же допиши вывод ,а во 2 блоке ввод, забыл)). Чуть в кадр не поместился, но у тебя все эти формулы в пограмме. Удачи!
1.Необходимо перевести все числа в десятичную СС:
1)10001001 = 1·27+0·26+0·25+0·24+1·23+0·22+0·21+1·1 = 137.
2) 214 = 2·82+1·81+4·1 = 140.
3) D7 = 13·161+7·1 = 215.
4) 1111000= 1·26+1·25+1·24+1·23+0·22+0·21+0·1 = 120.
145<215<469.
Ответ: 3
2.
1)29+209=238.
2)238/16 = 14, остаток: 14, 14 = E
14/16 = 0, остаток: 14, 14 = E
238(в десятичной) = EE(в шестнадцатиричной).
Ответ: 3!
У тебя ошибка во втором.