Question

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

Answer 1

var
i:integer;
begin
  randomize;
  writeln('Количество жильцов:');
  for i:=1 to 30 do
  writeln('Дом ',i,' - ',random(151)+50);
end.