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

Question

Лукиана

26 марта, 22:10

+5

Ответы (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.