Вопрос по информатике:
Пусть дано 100 целых чисел, которые вводятся по одному. Найдите количество элементов больших числа 10 и кратных 3
- 21.06.2018 00:06
- Информатика
- remove_red_eye 11875
- thumb_up 46
Ответы и объяснения 1
Program Pr1;
uses crt;
var mas:array[1..100] of integer;
i,a:integer;
Begin
clrscr;
a:=0;
for i:=1 to 100 do begin
read(mas[i]);
if (mas[i]>100) and (mas[i] mod 3=0) then a:=a+1;
end;
writeln(a);
end.
- 22.06.2018 09:31
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.