Составить программу подсчета жителей населенного пункта. Исходные данные: количество жильцов дома считать случайным числом от 40 до 70, а количество домов n вводится с клавиатуру.

Question

Информатика

Викторина

14 января, 21:15

Составить программу подсчета жителей населенного пункта. Исходные данные: количество жильцов дома считать случайным числом от 40 до 70, а количество домов n вводится с клавиатуру.

+5

Ответы (1)

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

Ревекка · Answer 1

Var a, b, c: integer;

begin

randomize;

writeln ('Введите кол-во домов') ;

Readln (b) ;

for a : = 1 to b do begin

c : = random (30) + 40;

writeln ('Жителей в доме ', c)

end;

writeln ('Кол-во жителей в населённом пункте ', c * b) ;

end.