2-10
3-7
4-4
5-6
6-1
7-?
8-3
9-8
10-2
11-9
Var
n,d1,d10,d100:integer;
begin
Write('Введите натуральное трехзначное число: '); Read(n);
d1:=n mod 10; d100:=n div 100;
d10:=(n div 10) mod 10;
if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0)
then Writeln('Есть четная цифра')
else Writeln('Нет четных цифр')
end.
Const n =9; // Задаем кол-во элементов в массиве
var
i,sred:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
if i*i*i = 1000 then break;
a[i]:= i*i*i;
sred:=sred+a[i];
end;
writeln('Среднее значение элементов = ', sred/n);
<span>end.</span>