1.напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 4. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число — количество чисел, кратных 4. 2. напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 3. количество чисел не превышает 1000. введённые числа не превыша ют 30 000. программа должна вывести одно число — минимальное число, кратное 3.
ALexus67
1
07.06.2019 05:00
179
Другие вопросы по теме Информатика
ponhik4
24.12.2019 19:17
мишка4543
24.12.2019 19:22
Челoвечeк
24.12.2019 19:24
zimenko201411
24.12.2020 09:48
elenakrivohiza3555
29.07.2019 14:10
Tiktak222
17.06.2019 04:00
lili2005ok
17.06.2019 04:00
ДимаПохитун
17.06.2019 04:00
Популярные вопросы
- Дан парралелограм авсд точка р не лежит в плоскости параллелограмма,...
1 - Словесный портрет: читал запинаясь,росс взрослея , учил запоминая...
2 - Вкоординатной системе даны точки a(5; 2; 0) и b(6; -7; 1). определи...
1 - При каких значениях х имеет смысл выражение корень-3х постройте...
3 - 5.put the verbs into the correct from,present simple or present...
2 - Из 280 тюльпанов на клумбе 35 были желтые. сколько процентов тюльпанов...
2 - нужно проспрягать глаголы в plus-que-parfait утвердительная,отрицательная...
3 - Реакции изомеизации и условия их протекания...
3 - Составьте кроссворд признаки текста...
3 - Сочинения на тему что означает любить родину? план: 1)любовь к родине...
3
begin
x:=0;
read(n);
for i:=1 to n do //Если количество чисел не дано, то надо писать while not eof.
begin
read(a);
if a mod 4 = 0 then inc(x) //x:=x+1;
end;
write(x);
end.
2)var i,min,a,n:integer;
begin
min:=30001;
read(n);
for i:=1 to n do begin
read(a);
if a mod 3 = 0 then
if a<min then min:=a;
end;
write(min);
end.
В компиляторе не проверял. Удачи.