begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(21)-10; for i:=1 to 20 do write(A[i]:5); writeln; writeln('Каждый пятый эелемент массива: '); for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5); end.
2. var x,i: integer; A: array [1..20] of integer;
begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5); writeln; writeln('Натуральные числа в диапазоне [5..10]: '); for i:=5 to 10 do write(A[i]:5); writeln; x:=1; writeln('Их произведение: '); for i:=5 to 10 do x:=A[i]*x; write(x:5); end.
Книгопечатание в 15 веке уже распространилось по всей Европе известно до 1000 имён печатников того времени, число же изданий, вероятно, доходит до 30000 (так называемые инкунабулы); 6/7 этого количества составляют сочинения религиозные и схоластические, остальные — научные и древняя и новая литература. Формат — in folio, разделённый на два столбца, или in quarto. Шрифт остался прежний — письменный готический прямоугольный. Только в Италии печатники начали применять употреблявшийся там ещё с XIV века круглый шрифт, так называемый римский, который впоследствии и вытеснил готический.
5
Объяснение:
d = 0
для i от 1 до 4 (i = 1, 2, 3, 4) выполнить
если условие i < 3 истинно (да) то d = d + i
иначе (если условие ложно (нет)) d = d + 1
d = 0
i = 1
1 < 3 (да) то d = d + i = 0 + 1 = 1
иначе d = d + 1
d = 1
i = 2
2 < 3 (да) то d = d + i = 1 + 2 = 3
иначе d = d + 1
d = 3
i = 3
3 < 3 (нет) то d = d + i
иначе d = d + 1 = 3 + 1 = 4
d = 4
i = 4
3 < 3 (нет) то d = d + i
иначе d = d + 1 = 4 + 1 = 5
d = 5