Var N:integer;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
WriteLn('√',N,' = ',Sqrt(N))
End.
Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
print('Длина ребра куба =')
a=int(input())
V=a*3
S=6*(a**2)
print('V=',V,' см**3',sep='')
print('S=',S,' cм**2',sep='')
Задание 4
ответ 4 т.к известно что он поднялся два раза вверх и 3 раза вниз
Для буквы Т нужно использовать кодовое слово 00101
Оно отличается:
от А = 10000 в трёх позициях (1-й, 3-й, 5-й),
от И = 11110 в четырёх позициях (1-й, 2-й, 4-й, 5-й),
от С = 01011 в трёх позициях (2-й, 3-й, 4-й)
Насчёт вариантов ответа - затрудняюсь сказать...