1. Информатика
  2. Среди n случайных чисел

Среди n случайных чисел в диапазоне от -1 до 10 определите количество чисел, делящихся на 3. паскаль

juliaworldlove juliaworldlove    1   22.07.2019 01:40    0

Ответы
Lerkashkablreva1103 Lerkashkablreva1103  23.09.2020 12:59
Var
a,s,n,i:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
begin
read(a);
if((a mod 3)=0) then s:=s+1;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Паралиллепипед Паралиллепипед  26.08.2019 05:40
:создать проект нахождения периметра треугольника abc ,если известны координаты его вершин a(x1; y1), b(x2; y1),c(x3; y3). оформить подпрограммой вычисления длины сторон....
филик2 филик2  29.05.2020 14:09
Паскаль - Написать программу, которая вычисляет площади и периметры трёх прямоугольников, если известны их стороны (6 значений)....
OWERpass OWERpass  30.05.2020 14:09
1) Какое расширение должна иметь страница сайта, созданная с текстового редактора Блокнот? 2) какие тэги определяют структуру Web-страницы? 3) Какое действие выполняет...
alexasnowbell alexasnowbell  29.05.2020 14:14
Скажи на что указывает знак галочки в пункте меню?)​...
doriii72 doriii72  29.05.2020 14:19
1. Задать файл из целых чисел.Найти максимальный элемент файла 2.Уменьшить в 3 раза каждый элемент файла кратный числу 3. 3.Найти кол-во положительных элементов файла....
Alena18091 Alena18091  16.04.2021 22:54
Ошибка в pascal (Встречен begin, а ожидался конец файла , что нужно дописать чтобы ошибка исчезла? uses GraphABC; procedure Zv (x,y: integer; cl:integer); var i,k: integer;...
VladShevshenko228 VladShevshenko228  16.10.2020 11:36
ТЕКСТ ЗАДАНИЯ Сведения об окружающем нас мире, получаемые с знаков и сигналов - это... (выбери все ответы связанные сданным понятием).Верных ответов: 3ОбъектИнформацияУправлениеСведенияЗнанияформа...
Pantiik Pantiik  16.10.2020 11:37
Сымды және сымсыз желілер деген не​...
надюша5056 надюша5056  16.10.2020 11:39
Ақпараттың өзектілігі дегеніміз не информатика бжб​...
Балерина2017 Балерина2017  16.10.2020 11:40
Берилген ис аркет акпарат беруши немесе кабылдаушыга катыстыайтылганын аныктаныз:компьютер акпарат берди.Мугалим сабак тусиндирди.Окушы мукият тындады.балалар теледидар...

Популярные вопросы