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].
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
a, n, s: integer;
begin
s := 0;
n := 0;
repeat
write('Введите число ');
readln(a);
s := s + a;
n := n + 1;
if (a mod 3 = 0) then
writeln('Число делится на 3');
until s > 100;
writeln('Количество введенных чисел = ', n);
end.Программа на языке Паскаль для вывода массива случайных целых чисел:var
arr: array[1..15] of integer;
i: integer;
begin
randomize;
for i := 1 to 15 do
arr[i] := random(41) + 20; // генерация случайного числа в диапазоне [20,60]
for i := 1 to 15 do
write(arr[i], ' ');
writeln;
end.