В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Введите 10 целых чисел:',10);
var pe:=a.Where(t->t.IsEven).Count/10;
Writeln('Нечетных ',100*pe,'%, четных ',100*(1-pe),'%')
end.
<u>Пример</u>
Введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34
Нечетных 60%, четных 40%
Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Var
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.
Мышь, тачпад и трекбол выполняют функцию комп.мыши, получается, что лишнее - клавиатура