Исполнитель (для количества слов исполнитель,исполнитель,исполнитель,исполнитель)
1 символ - 5 бит. 145 символов - 725 бит
For i := a to b do
...
end;
Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
<span>end.</span>
uses crt;
var kletka,i,vremya:integer;
begin
kletka:=1;
write ('vvedite vremya');
read(vremya);
vremya:=vremya div 5;
for i:=1 to vremya do
kletka:=kletka*4;
write ('kletok stanet- ',kletka);
end.