var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
На паскале
random(15);
random(16);
random(31) - 15;
random(10) + 10;
random(50) + 50;
random(100) - 35;
===== PascalABC.NET =====
1)
begin
var a := ArrRandom(20, 0, 10000);
a.Println;
a.Pairwise.Where(p->p[0].IsEven and p[1].IsEven).Count.Println
end.
2)
begin
var a := ArrRandom(40, 0, 10000);
a.Println;
a.Pairwise
.Where(p->(p[0] mod 10 = 4) or (p[1] mod 10 = 4))
.Count.Println
end.
3)
Минимальное четырехзначное число в восьмеричной системе - это 1000₈ = 8³₁₀ = 512₁₀. Максимальное число это 1000₁₀ = 1750₈. Следовательно, нужное десятичное число равно ближайшему меньшему к 1750₈ числу, оканчивающемуся на 4, т.е. 1744₈, что составляет 8³ + 7×8² + 4×8 + 4 = 996.
Никаких программ тут составлять не надо.
Program pr;
uses crt;
Var
i,n:integer;
Procedure del(a:integer);
Var i:integer;
Begin
i:=1;
while (a div i<>0) do
Begin
if (a mod i=0)
then Writeln(i);
i:=i+1;
end;
end;
Begin
Writeln('Vvedite chislo');
readln(n);
del(n);
readln;
end.