<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.
числовых и текстовых данных
2.
D4
3.
несколько ячеек в столбце
4.
Текст
Число
Формулу
5.
В ячейке А1 формула =A$2-B2
<span>В ячейке C4
формула = =C$2-D5</span>
<span>В ячейке D2
формула = D$2-E3</span>
6.
абсолютная ссылка
7.
<span>Диапазон А1:С3 содержит 9 ячеек
</span>
<span>(A ^ B)V C ^ (AvC)^ (А ^ B)</span>
A = 1
B = 0
C = 0
<span>(1 ^ 0)V 0 ^ (1v0)^ (1 ^ 0)</span> = 0 V 1 ^ 0 = 0
const n=10;
var a:array [1..n] of integer;
i,s,k:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random (16);
write (a[i],' ');
if a[i] mod 5 = 0 then
begin
s:=s+a[i];
k:=k+1
end
end;
writeln;
if k<>0 then writeln('Среднее арифметическое элементов массива, которые делятся на 5, равно: ',s/k:0:3)
else writeln ('Элементов массива, которые делятся на 5, нет.')
end.
