Задание 2. Простые типы данных

2.1 Дано натуральное число:

− найти произведение цифр данного числа;

− верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).

 

 

 

2.2 Найти все трехзначные числа, такие, что сумма цифр равна А, а само число делится на В. (А и В вводятся с клавиатуры)

Задание 3. Одномерные массивы

3.1 Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти:

Код программы 3.1:

Program 3.1;

Var

b: array [1..10] of integer;

i,k,a,s,index: integer;

Begin

for i:=1 to 10 do

Begin

write('b[',i,']=');

readln(b[i]);

End;

s:=0;

for i:=1 to 10 do

if ((b[i] mod 2) = 1) then

s:= s + b[i];

writeln('сумма нечетных элементов: ', s);

write('введитеА ');

Readln(a);

writeln('индексы чисел больших А=',a);

for i:=1 to 10 do

if b[i] > a then

Writeln(i);

writeln('введите k');

Readln(k);

index:=0;

for i:=1 to 10 do

if ((b[i] mod k) = 0) and (b[i] > 0) then

Begin

index:=1;

Break;

End;

if index=1 then

writeln('есть отрицательные числа')

Else

writeln('нет отрицательных чисел');

End.

− сумму элементов, имеющих нечетное значение:

Скриншот:

− вывести индексы тех элементов, значения которых равны заданному числу А:

Скриншот:

−определить, есть ли в данном массиве отрицательные элементы, кратные k (k вводить с клавиатуры):

Скриншот:

- заменить минимальный по модулю отрицательный элемент числом 99.

− заменить первые k элементов на нули.