а) Серёже надо приходить в 8 часов.
б) нарицательные числа
в) 0 не делиться на 5
program raf105;
var
a:array[1..10] of integer;
x,i,c: integer;
begin
writeln('Заполните массив:');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10-1 do
if ((a[i]+a[i+1]) mod 2 = 0) and ((a[i]+a[i+1]) mod 4 <> 0)
then c+= 1;
writeln('Вывод: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Можно, например, так:
В ячейку B1 ввести формулу =3,14/6
В ячейку A2 - значение 3,14
Все остальные значения получать с помощью формулы вида:
=A2+$B$1
(См. прилагаемый файл)