Наведу на мысль
var x,z:integer;
BEGIN
readln(x);
writeln(xmod10);
x=xdiv10;
writeln(xmod10);
x=xdiv10;
writeln(xmod10);
x=xdiv10;
end.
исправь ошибки если есть
1000 байтов,1024 бита,10 битов,1 байт, 1 бит.(1 байт=8 бит)
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
<span><span><span>Закодируй полученную тобой на основе анализа рисунка информацию знаками на бумажном носителе. ... Опиши состав и действия трех кораблей на рисунке Дай имена и заполни таблицу отличительных признаков.</span></span></span>