Question

В девятиэтажном доме на каждом этаже расположено по 4 квартиры. Составить программу, которая по номеру этажа n (1< n <9) выводит номера квартир на этом этаже. Pascal

Answer 1

Program fasf;

var

n,q:integer;

begin

write('Введите этаж:');

readln(n);

q:=n*4; 

writeln('Квартиры:',q,q-1,q-2,q-3);

end. 

 

Answer 2

var

i,n:integer;

begin

read(n);

for i:=0 to 3 do

writeln (4*n-i);

end.