<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=a.Where(t->t mod 4=0).Count;
if k>0 then Writeln('Кол-во элементов, делящихся на 4, равно ',k)
else Writeln('Таковых нет')
end.
<u>Пример</u>
n= 13
-26 -4 -41 23 8 -14 29 2 38 -9 32 4 12
Кол-во элементов, делящихся на 4, равно 5
Напиши в интернете г д з информатика босова 6 класс или какой там автор. И выбери номер и будут все ответы. Так работает со всеми предметами
задача1
запишем условие: страниц=16, строк=32, символов=40, i=8 бит I-?
решение: вычислим общее количество символов в тексте
K=16*32*40=20480
вычислим информационный объем текста I=K*i=20480*8=163840 бит=20 Кб это и есть ответ
задача2
запишем условие: страниц=16, строк=32, символов=30, i=8 бит I-?
решение: вычислим общее количество символов в тексте
K=16*32*30=15360
вычислим информационный объем текста I=K*i=15360*8=122880 бит=15 Кб это и есть ответ
Да. данная игра требует подписки.