Var
A,N:integer;
Begin
WriteLn('Введите целое число');
Read(A);
N:=0;
While A>0 do
Begin
if A mod 2 = 0 then N:=N+1;
A:=A div 10;
End;
WriteLn(N);
End.
Поверено на Паскале АВС
Program PSM;
uses crt;
var
cena, summa:real;
kwo,skid : integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln; writeln;
writeln('+---------------------------------------------------------------+');
writeln('| Приветствуем вас в магазине ТРИЛАЙН! |');
writeln('+---------------------------------------------------------------+');
writeln('| Введите, пожалуйста, необходимую информацию ниже: |');
writeln('+---------------------------------------------------------------+');
write(' Цена товара: '); readln(cena);
write(' Количество единиц товара: '); readln(kwo);
write(' Размер скидки в % (0 - если скидки нет) '); readln(skid);
writeln('+---------------------------------------------------------------+');
writeln('| |');
writeln('| Сумма к оплате: ',cena*kwo*(1-skid/100):10:2,' |');
writeln('| |');
writeln('+---------------------------------------------------------------+');
end.
Var
i, summ:integer;
begin
summ := 0;
for i:=1 to 25 step 2 do summ := summ + i;
<span>end.</span>
<em>101111.11(2)</em> = 101 111.110(2) =<em> 57.6(8)</em>
101111.11(2) = 0010 1111.1100(2) = <em>2F.C(16)</em>
Первая запись
28 мбайт файл стерео / 2 (терь он моно) * 2 / 3.5 = 8 мбайт стал весить файл.