<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var s:=0;
if a.IsOdd then s+=a;
if b.IsOdd then s+=b;
if c.IsOdd then s+=c;
Writeln('сумма нечетных равна ',s)
end.
<u>Пример</u>
Введите три целых числа: 345423 -324342 1231
сумма нечетных равна 346654
Абвгдеёжзийклмнопрстуфхцчшщъыьэюя
1 шаг - 18211913115
2 шаг - 51131911281
3 шаг - дйэзйъа
Чаще всего встречается буквы "й"
Номер буквы "й" - 11
1*16в степени 5+4*16 в ст4+3*16в ст3+5*16в ст2+1*16 вст 1*1*16 в ст. 0
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>