10 класс напишите программу обработки последовательности целых чисел. на вход программе сначала подается натуральное число n - кол-во элементов последовательности, n не превосходит 1000. затем следуют натуральные числа, каждое число в отдельной строке. каждый элемент последовательности не превосходит 10000. программа должна выводить все элементы последовательности, являющиеся трехзначными числами, кратными семи, в порядке, обратном порядке ввода. если таковых нет, программа выводит число -1 заранее !
Romaglot
2
30.06.2019 13:20
0
Другие вопросы по теме Информатика
1828384858
27.06.2019 07:00
alenamon
27.06.2019 07:00
Никита8547
28.07.2019 13:40
TITANIKбро
28.07.2019 13:40
nekodaf
03.09.2019 17:30
анна2262
27.09.2019 14:27
yulyapikulyk
27.09.2019 15:10
COYOT61
27.09.2019 15:10
anyutra
27.09.2019 14:19
Популярные вопросы
- По облику столицы судят о всей стране содержание 250 слов с цитатой...
1 - Краткая биография чингиза айтматова на кыргызском завтра экзамен я...
2 - Туристы проехали первую половину расстояния в 480 кмна автомобиле соскоростью...
3 - По облику столицы судят о всей стране для экзамена нужно буду на 27...
1 - Распространите данные предложения второстепенными членами. 1) солнце...
2 - Скажите по языку ср. 3.69 , какая выйдет оценка за четверть....
3 - Почему в слове длинный две н ,а в слове длина одна...
2 - Случайная величина х имеет нормальное распределение с параметрами м(х)...
3 - Сша после первой мировой войны и до наших дней...
3 - 1. строение и грамматическое значение словосочетаний. связь слов в...
2
Var a:array[1..1000] of integer;
i,m,k,n: integer;
Begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin //в обратном порядке
k:=0;
m:=a[i];
while m>0 do begin
m:=m div 10;
inc(k); // ищем количество разрядов
end;
if ((a[i] mod 7) =0) and (k=3) then write(a[i]:2);//кратно 7 и 3 разряда - выводим
end;
end.
ABC Pascal