Запишите на языке паскаль программу решения задачи. Считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек, а число домов n=30.

Question

Людаха

5 октября, 23:06

+5

Ответы (1)

Знаете ответ на вопрос?

Гуня · Answer 1

Var

i:integer;

begin

randomize;

writeln ('Количество жильцов:') ;

for i:=1 to 30 do

writeln ('Дом ', i,' - ', random (151) + 50) ;

end.