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

Question

Моша

8 сентября, 12:53

+3

Ответы (2)

Знаете ответ?

Радослава · Answer 1

var

i, n:integer;

begin

read (n) ;

for i:=0 to 3 do

writeln (4*n-i) ;

end.

Нуся · Answer 2

Program fasf;

var

n, q:integer;

begin

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

readln (n) ;

q:=n*4;

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

end.