Программку нужно написать на языке Pascal:Массив необходимо заполнить вводом с клавиатурыДан
Программку требуется написать на языке Pascal:
Массив необходимо заполнить вводом с клавиатуры
Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые значения от 0 до 100. Составьте программку, которая находит и выводит творение двузначных частей массива, которые не делятся на 6. Гарантируется, что в начальном массиве есть желая бы один таковой элемент.
program raf105;
var a:array[1..30] of integer;
pro,i:integer;
begin
writeln('Вводите 30 чисел по очереди');
pro:=1;
for i:=1 to 30 do
begin
readln(a[i]);
if (a[i] lt;= 99) and (a[i] gt;= 10) and ((a[i] mod 6) lt;gt; 0)
then pro*= a[i];
end;
writeln('Вывод: ',pro);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.