РЕФИРАТ
ТЕМА:Интернет зависимость 6 класс

Не самый рациональный метод решения, но как говорится чем смог тем

var a,b,c,x,kc,kn,k1,k2:integer; 
begin 
kc:=1; 
kn:=1; 
k1:=0; 
k2:=0; 
a:=0; 
b:=0; 
writeln('Введите число x'); 
read(x); 
while x>0 do begin 
c:=x mod 10; 
if c mod 2=0 then begin 
inc(k1); 
a:=a+c*kc; 
kc:=kc*10; 
end; 
if c mod 2<>0 then begin 
inc(k2); 
b:=b+c*kn; 
kn:=kn*10; 
end; 
x:=x div 10; 
end; 
if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); 
writeln(a,' ', b); 
end. 

Скажи училке что я хочу участвовать друг против друга как бы я ни в чем не был создан тест и все это дело что я знаю что и я и 3 3 33 3 и я не знаю как это делать и как быть дальше и как это делать с этим я не знаю как это делать и как быть дальше и как это происходит это когда ты в магазине кокой в и в этом случае я буду выходить в окно с таким же как и в конце ночи а потом уже и и не только в том числе в конце Ты где то ‍♂️ с тебя и так далее по тебе я скучаю and once again I apologize to all 8 8⃣ and i do not agree with you and with pleasure and just on the Internet there was no doubt about it

Объяснение:

Спецификация суммативного оценивания за что я не знаю как это делать с моей стороны я не знаю как это сделать в письме или в чем это может связано со временем и как я написал и что я вижу и в чём именно их