var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.
Var
y, x: real;
begin
read(x);
if (x > -20) and (x < -10) then
y := x * x * x * x
else if (x > -10) and (x < -20) then
y := abs(x)
else if ((x > 0) and (x < 20)) or ((x > 30) and (x < 70)) then
y := 45
else if ((x > 80) and (x < 100)) or ((x > 110) and (x < 140)) or (x > 180) then
y := abs(x - 4)
else
y := abs(x + 2);
writeln(x, ' ', y);
end.
Судя по программе алгоритм линейный
1250/10=125 Кбайт в секунду
2^3= 8 подъездов (один вариант из 8)
64 символов в алфавите следовательно 1 символ весит 6 бит, 100*6=600 битов/8= 75 байт