Var
a,b:integer;
Begin
readln(a,b);
if a mod 2= 0 then writeln('есть чётное')
else if b mod 2=0 then writeln('есть чётное')
else writeln('Нет чётных);
<span>End.</span>
347,512 => 101011011,10000011...
1011101 => 93
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span>
<span>861,328125Кбайт</span></span>
// PascalABC.NET 3.0, сборка 1073
var
day,nwords:integer;
begin
day:=1; nwords:=4;
while nwords<50 do begin Inc(day); nwords:=nwords+4 end;
Writeln('50 слов будет выучено на ',day,'-й день')
end.
<em><u>Тестовое решение:</u></em>
50 слов будет выучено на 13-й день