2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.3. Дана программа на языке Паскаль.var a,n,s: integer;begins:=0;n:=0;repeat;write('Введите число ');readln(a);s:=s+a;n:=n+1;until s>100;writeln('Количество введенных чисел = ' ,n);end.Переписать программу используя цикл While.4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.3. Дана программа на языке Паскаль.var a,n,s: integer;begins:=0;n:=0;repeat;write('Введите число ');readln(a);s:=s+a;n:=n+1;until s>100;writeln('Количество введенных чисел = ' ,n);end.Переписать программу используя цикл While.4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
a, n, s: integer
begi
s := 0
n := 0
repea
write('Введите число ')
readln(a)
s := s + a
n := n + 1
if (a mod 3 = 0) the
writeln('Число делится на 3')
until s > 100
writeln('Количество введенных чисел = ', n)
end.Программа на языке Паскаль для вывода массива случайных целых чисел:va
arr: array[1..15] of integer
i: integer
begi
randomize
for i := 1 to 15 d
arr[i] := random(41) + 20; // генерация случайного числа в диапазоне [20,60
for i := 1 to 15 d
write(arr[i], ' ')
writeln
end.