<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Юля использовала команду: 2) a2:=a div 10 mod 10;
1) a2:=a mod 10 div 10;
будет 0 в любом случае
число mod 10 = последней цифре числа
число div 10 - число без последней цифры, в случае однозначного числа - всегда будет 0
Например: (123 mod 10) div 10 = 3 div 10 = 0
2) a2:=a div 10 mod 10;
число div 10 = число без последней цифры
число mod 10 = последней цифре числа
Например: (123 div 10) mod 10 = 12 mod 10 = 2
3) a2:=a div 100 mod 10;
будет первая цифра трёхзначного числа
число div 100 = число без двух последних цифр, в случае трёхзначного числа - однозначное число
число mod 10 = последней цифре числа, в случае однозначного числа - самому числу
Например: (123 div 100) mod 10 = 1 mod 10 = 1
Врррврывравркыупыувпыукваркыварпыуквари ответ 2