1.
var n,i:integer;
begin
write('Этаж = ');
readln(n);
writeln('Квартиры: ');
for i:=1 to 5 do write(5*(n-1)+i,' ');
end.
Пример:
Этаж = 7
Квартиры:
31 32 33 34 35
2.
var a,b:integer;
begin
a:=0; b:=0;
while a<7 do<br> begin
a:=a+1;
b:=b+a;
end;
writeln('a = ',a,' b = ',b);
end.
Результат:
a = 7 b = 28