Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>
Наверное, 8. Сначала делим число 226 пополам (т.к всего 226 вариантов чисел), задаёт вопрос, "больше 113 или нет". После опять дели пополам оставшуюся часть и опять задаёт аналогичный вопрос. И т.д.
(Start)
Кто пришел?
Если Саша то - играть в хоккей,
Если Наташа то - идти в кино
Var a,b:real;
begin;
readln(a);
readln(b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
end.