Информатика 9 класс
1)подсчитайте произведение отрицательных чисел последовательности из 5 чисел, введенных с клавиатуры.
2)пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. вычислите количество чисел кратных 3 этой последовательности.
3)пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. вычислите сумму чисел кратных 7 этой последовательности.
4)пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. вычислите количество четных, отрицательных чисел последовательности.
gagarinov51
3
01.12.2019 15:22
9
Другие вопросы по теме Информатика
sofialolollollo
07.05.2020 23:57
математика620
07.05.2020 23:57
svyara8
07.05.2020 23:38
1Elvira1
30.04.2021 09:07
olka52
19.05.2021 17:17
Пенелопа2189
19.05.2021 17:19
vol12
19.05.2021 17:19
FreonTime
19.05.2021 17:19
mariabilyk2005
02.12.2020 21:16
shedis2004
02.12.2020 21:18
Популярные вопросы
- Определи порядок действий и вычисли значение выражений. 5 212 036 – (28 175 : 35...
1 - азақ тілі.көмектесіңдерші...
2 - Дайте определение ограничивающему,оптимальному пессимальному факторам....
2 - Fill in articles before countable and uncountable nouns. Put ‘–’ for the zero article....
2 - 1. Отметьте сочетание слов, которое является словосочетанием А) лес шумит Б)вышел...
2 - Функция задана формулой f(x) = x2 – 9 а) Найдите f(6), f(-0,5). б) Найдите значение...
2 - 20.При переломе ребра нужно: а)наложить шину; б)туго забинтовать грудную клетку;...
1 - Итоговая промежуточная аттестация по географии 8 класс Задание №1. Выбрать один...
1 - с контрольной по геометрии, оба варианта....
2 - 46-кестеAD қабырғасының ұзындығы0,8 см3 дм= дм15 дм3,4 смТекшенің көлеміABCD төртбұрышының...
1
1)
var i,p,n: integer;
begin
p:=1;
for i:=1 to 5 do begin
readln(n);
if(n<0) then p:=p*n;
end;
write(p);
end.
2)
var n,k,x,i: integer;
begin
readln(n);
k:=0;
for i:=1 to n do begin
readln(x);
if x mod 3=0 then k:=k+1;
end;
write(k);
end.
3)
var n,s,x,i: integer;
begin
readln(n);
s:=0;
for i:=1 to n do begin
readln(x);
if x mod 7=0 then s:=s+x;
end;
write(s);
end.
4)
var n,k,x,i: integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(x);
if(x mod 2=0) and (x<0) then k:=k+1;
end;
write(k);
end.