Регистрация
Мандаринка500
28.09.2022 12:26
Информатика
Есть ответ 👍

Как вы считаете, любую ли информацию можно скачать из интернета? обоснуйте своё мнение.

146
201
Посмотреть ответы 2

Ответы на вопрос:

lol1049
lol1049
4,6(86 оценок)
Нет потому что некоторую информацию чательно скрывает правительство или другие предприятия. так же мы не можем скачать информацию с заблокированых ресурсов.
Kozlov24ivan122
Kozlov24ivan122
4,5(9 оценок)

1) var a: array [1..10] of integer;

i: integer;

begin

for i: =1 to 10 do begin

a[i]: =random(46);

write(a[i],' ');

end;

writeln;

for i: =1 to 10 do  

if a[i] div 10 = 3 then write(a[i],' ');

end.

2) внимание! выводит только нечетные числа, так как появление отрицательных в данном диапазоне невозможно

var a: array [1..10] of integer;

i,j: integer;

begin

j: =0;

for i: =1 to 10 do

begin

a[i]: =random(46);

if odd(a[i]) then inc(j);

write(a[i],' ');

end;

writeln;

writeln('количество нечетных чисел в массиве: ',j);

end.

Популярно: Информатика