var
A: Integer;
begin
WriteLn ('Введите целое число:');
Readln (A);
Writeln;
Writeln ('Квадрат этого числа = ' + IntToStr (A * A));
end;
1. переписка
2. монитор, принтер, плоттер, динамик.
3. -
4. компьютер
5. микрофон
6. -
Var s:string;
i,m,n:integer;
begin
readln(s);
n:=-1;
for i:=1 to length(s) do begin
n+=1;
if (s[i]=' ') or (i=length(s)) then begin
if n>m then m:=n;
n:=0;
end;
end;
writeln(m);
<span>end.</span>
26 любит мороженое и 6 только
Если брать величины то должно быть так:
Бит, байт, кбайт, Мбайт.
Но если брать с цифрами то:
3 байта (это 24 бит)
30 бит
0.25 Мбайт (это 250 кбайт)
500 кбайт