var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.
^ 3 <-> x^y С/П
Ввод: K С/П.
Значащие нули - нули не находящиеся на 1 позиции числа . Пусть n кол-во значащих нулей :
289 (10) = <span>100100001 (2) , тогда n = 6
309 (10) = </span><span>100110101 (2) , тогда n = 4
</span>154 (10) = <span>10011010 (2) , тогда n = 4
</span>763 (10) = <span>1011111011 (2) , тогда n = 2</span><span>
</span>
PROGRAM
Privet;
VAR
x:
real;
BEGIN
writeln(
'Который час?'); read(x);
if
x>
24 then
writeln(
'Введенное число не является временем ' )
else
begin
if
(x>=
8) and (x<12) then writeln('Доброе утро!');
if
(x>=
12) and (x<17) then writeln('Добрый день!');
if
(x>=
17) and (x<23) then writeln('Добрый вечер!');
if
(x>=
23) or (x<8) then writeln('Доброй ночи!');
end
;
end
.