var
i, count: integer
i := 1;
count := 0;
repeat
String stroka;
readln(stroka);
if(length(stroka)<3)
count := count+1;
i:=i+1
Until(i=8);
Выводишь на экран
Цикл оформляй через for, я просто забыл синтаксис этого цикла.
Ответ:
Объяснение:
var
N,K,S:integer;
begin
writeln('Введите число N>1');
readln(N);
K:=1;S:=0;
while S<N do
begin
S:=S+K;
K:=K+1;
end;
Writeln('K=',K-1,' Сумма: ',S);
end.
Для решения этого задания достаточно перевести указанное число в двоичную СС и посчитать нули.
158(10) = 10011110, отсюда следует что нулей три.
Ответ: 3.