ответ:
номер 1-интернет - всемирная паутина, которая хранит в себе тонны информации. он заменяет нам любой источник информации и облегчает понимание.
газеты/журналы - письменные, или же стандартные способы получения информации на бумаге.
телевидение - самый удобный источник информации. содержит в себе и картинку, и звук, и приятную визуализацию.
постеры/афиши - бумажки расклеенные по городу или же огромные постеры размещенные на зданиях. привлекает внимание, тем самым увеличивает число интересующихся.
радио - звуковая информация, уже перестает быть актуальной. в основном, радио - это не новости, а что-то более развлекательное.
номер 2-к примеру, кто-то описывает картину на бумаге (повествованием), тем самым переводит графическую информацию в текстовую. рассказывает вслух - уже в звуковую. и т. д.
номер 3-написание дипломного проекта из своего же курсового, время прошло законы изменились и теперь за одни и теже административные проступки другие наказания, но дабы не писать с нуля все это лучше обработать свой же курсовик соответственно изменив его содержание
номер 4-молекула днк
оптические носители
египитские папирусы
бумага
type
Date = class
private
Дата: System.DateTime;
public
день, месяц, год: integer;
constructor(d, m, y: integer);
begin
try
Дата := new System.DateTime(y, m, d);
(день, месяц, год) := (d, m, y);
except
Println('Недопустимая дата');
(день, месяц, год) := (1, 1, 0);
end
end;
procedure ДобавитьДни(dd: integer);
begin
Дата := Дата.AddDays(dd);
(день, месяц, год) := (Дата.Day, Дата.Month, Дата.Year)
end;
function ГодВисокосный: boolean;
begin
if год mod 400 = 0 then Result := True
else
if год mod 100 = 0 then Result := False
else Result := год mod 4 = 0
end;
end;
begin
var (d, m, y) := ReadInteger3('Введите день, месяц и год:');
var dd := new Date(d, m, y);
if dd.ГодВисокосный then Println('Год високосный')
else Println('Год не високосный');
dd.ДобавитьДни(5);
Print('Новая дата', $'{dd.Дата:dd.MM.}')
end.
ПримерВведите день, месяц и год: 9 11 2018Год не високосный Новая дата 14.11.2018
begin
var a:=ArrRandom(30,100,500); a.Println;
a.where(x->x.IsEven).Println(',')
end.
Пример
290 113 132 216 290 437 425 260 107 439 258 498 306 367 335 460 157 470 311 284 123 226 257 392 321 141 361 340 457 276
290,132,216,290,260,258,498,306,460,470,284,226,392,340,276