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

Question

Информатика

Эра

21 февраля, 03:43

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

+2

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