Здравствуйте

[Temka3791]

Формула количества для подсчета человек
чье жилье ниже нормы )
Как вписать?)




Var i,k,n,z :integer;
kv,kol : real ;
Begin
writeln('Введите кол-во рабочих');
readln (n);
k:= 0 ;
for i:=1 to n do
begin
writeln ('Введите кол-во человек в семье');
readln (k);
k:=k+n;
writeln ('Всего человек в семье = ', k);
writeln ('Введите кв метры');
readln (kv) ;
kv:=kv/k;
writeln ('Кол-во кв метров на одного человека = ', kv);
if (kv<12) then writeln ('Жилищные условия ниже нормы')
else if (kv>=12) then writeln ('Жилищные условия в норме');
end;
end.

[digitalis]

http://programmersforum.ru/showthread.php?t=318874
Как в Госдуме, с первого раза не доходит, требуется 2, 3 и т.д. чтение ?
Будь я модер, людей, многократно постящих в форум одно и то же и не читающих ответов, банил бы розгами по задиаку.