11*5=55
Мощность русского алфавита 5
Var
n,a,k,i:integer;
begin;
k:=1;
readln(n);
for i:=1 to n do
begin;
readln(a);
if (a>8) and (a<15) then k:=k*a;
end;
writeln(k);
end.
А) 201101(3), 1013(8), <span>20B(16)
б) </span>1230(8), 298(16), <span> 1</span>010011000(2)
в) 1216(8), <span>28E(16)
г) </span>229<span>
д) </span><span>43</span>
Program one;
var x, y: real;
begin write('Введите число x: '); read(x); y := x * 1 * x * 2 + x * 1 * x * 3 + x * 2 * x * 3; write('Ответ: ', y);end.