2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
На один пиксель(дот) приходится 32 бита или 4 байта.Бумага формата А4 а значит её размер 8.3 на 11.7 дюймов(8.3*11.7=97.11 дюймов всего).На один дюйм приходится 600 пикселей.Всего пикселей 600*97.11=58266.32бита умножаем на всего пикселей 58266=1864512бита или 1864512\8=233064 байта или 233064\1000=233,064 кило байта
Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>