Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
Я смог решить только 7
program nomer;
var a,n,x:integer;
begin
while n<=0 do
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then a:=a+x;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(a);
end.
Рисунок на 2,12,20,21,22,23,24,25,26,27,28,29,32.итого 13 рисунков.
Переведите число CAFE из 16ричной в 2 систему счисления
сколько будет ABC(18) + DEF(20) в двоичной