Задание 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 элементов на нули.
|
