Здесь, как говорится, возможна масса разных вариантов. Один из самых простых такой:
var i,j: integer;
begin
for j:=1 to 5 do begin
for i:=1 to 8 do write('* ');
writeln;
for i:=1 to 8 do write(' *');
writeln;
end;
<span>end.
Если не подойдет - уточняйте требования к программе.</span>
Страны, материки, ладшафты, карты
1 Свойства информации: <span>1) Достоверность, полнота, ценность, актуальность, ясность</span>
Надо знать точную модель процессора, знать форм-фактор корпуса и т.д., чтобы подобрать нужную модель материнской карты.
3 раза.
После первого прохождения цикла
s=2; k=2;
после 2 прохождения цикла
s=5; k=3;
после 3 прохождения цикла
s=9; k=4;
при следующей проверки условие s<=7 не выполниться так как s>7