Program z2;

Procedure horline (Len: integer; s: char);
Var i: integer;
Begin
For i:=1 to Len do write(s);
Writeln;
end;

begin
Horline (10,'-');
Horline (20,'*');
Horline (30,'#');
End.

смотри объяснение!

Объяснение:

1 поколение - ламповые машины ; 2 поколение - полупроводниковые машины на транзисторах ; 3 - вычислительные системы на большой интегральной схеме ; 4 - мини компьютеры на интегральных схемах .

4 Одним из первых устройств, облегчающих вычисления, можно считать абак. Следующим этапом люди изобрели аналоговый компьютер. А впоследствии и до сих пор мы пользуемся цифровым компьютером.

5 Робот является одним из признаков развития вычислительной техники пятого поколения, потому что в основе его лежит искусственный интеллект.

Правила организации личной информации в сети Интернет

старайтесь не заполнять анкеты данных в неизвестных чатах, социальных сетях,

не оставляйте встреченным в Интернете людям свой номер телефона, домашний адрес,

не отправляйте неизвестным людям свои фотографии,

общайтесь в программах Skype и им подобным только с друзьями,

не открывайте прикрепленные к письму файлы, полученные от незнакомых людей,

не разглашайте информацию о своем пароле

Правила безопасности в сети Интернет

не договаривайтесь о встрече с незнакомцами,

не отвечайте на недоброжелательные сообщения,

выходите из чата, если чье-то сообщение вызывает беспокойство,

будьте внимательны при загрузке бесплатных программ на компьютер,

если вы получили оскорбляющее сообщение, сообщение о нем родителям,

не поддавайтесь на заманчивые предложения,

не посещайте сайты для взрослых

Правила сетевого этикета

старайтесь выглядеть достойно в глазах собеседников,

пишите грамотно,

человек, с которым вы общаетесь, может быть не один,

сдерживайте страсти,

будьте терпимы к недостаткам окружающих