Begin
var a:=ArrRandom(40,0,20).Println;
var s:=a.Where(x->x mod 3 = 0).Sum;
writeln('S = ',s);
end.
Пример:
8 11 7 18 1 9 10 16 5 1 15 17 15 20 12 7 15 18 2 15 0 7 19 4 7 17 2 19 3 11 1 15 1 2 3 4 18 5 7 1
S = 156
Объяснение:
Школа на шифре Цезаря – Щлпмб.
V-IV тысячелетие до н.э. Первые следы иероглифического письма в Древнем Египте
II-I тысячелетие до н.э. Появление алфавитного письма в Финикии
II век н.э. Изобретение технологии изготовления бумаги в Китае
Середина XV в. Начало книгопечатания в Европе
Середина XVI в. Начало книгопечатания в России
1839 г. Изобретение фотографии
70-е гг. XIX в. Первая запись звука с помощью фонографа
1895 г. Демонстрация первого кинофильма
20-е гг. XX в. Изобретение магнитофона
60-е гг. XX в. Появление первых жестких дисков для компьютеров
<span>80-е гг. XX в. Появление первых лазерных дисков </span>
Информацыоное общество,алгаритм и его формальное исполнение
Они одинаковые,потому что система хранения информации тысячеричная.Байт, Килобайт, Мегабайт, ГИГАБАЙТ,Террабайт.