?>
Наберите следующий текст (шрифт заголовка – Times New Roman, 12 пт, полужирный; основного текста – Times New Roman, 12 пт. Параметры абзаца – отступ красной строки – 1, 5; отступ справа – 0, слева – 0, перед – 0, после – 0, выравнивание по ширине, межстрочный интервал – одинарный Найдите в Интернете изображения Гиппократа, Апполона, Асклепия, Гигиеи, Панакеи. Вставьте эти изображения в текст (используя возможность обтекания текстом). Выделите словосочетание «абортивного пессария» и создайте гиперссылку на веб-страницу, на которой дано определение этого словосочетания. Задание 2. Создайте следующий документ медицинского назначения: Шрифт заголовка – Times New Roman, 12 пт, полужирный; основного текста – Times New Roman, 12 пт. Параметры абзаца – отступ красной строки – нет, отступ справа – 0, слева – 0, перед – 0, после – 0, выравнивание по левому краю, межстрочный интервал – одинарный. Верхнюю часть документа оформите с таблицы.
Ответы
(см. объяснение)
Объяснение:
program task;
var i: integer;
const N=5;
procedure writeOut(i: integer);
begin
if(i<N) then write(', ')
else writeln('.');
end;
begin
if(N<1) then begin writeln('N>0 и целое!'); exit; end;
writeln('ЦИКЛ FOR:');
for i:= 1 to N
do begin
write(i); writeOut(i);
end;
writeln;
writeln('ЦИКЛ WHILE:');
i:= 1;
while(i<N+1)
do begin
write(i); writeOut(i);
i:= i+1;
end;
writeln;
writeln('ЦИКЛ REPEAT:');
i:= 1;
repeat
write(i); writeOut(i);
i:= i+1;
until i=N+1;
end.