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

0 голосов
60 просмотров

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


Информатика (19 баллов) | 60 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(116 баллов)