SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
program Dom_Cats;
var
G: integer; {gorodov}
D: integer; {kagdom gorode D domov}
E: integer; {v kagdom dome E etagei}
P: integer; {v kagdom dome P podezdov}
K: integer; {na kagdom etage K kvartir}
O: integer; {vkagdoi kvartire O okon}
C: integer; {na kagdoi krywe C kotov}
kol_domov, kol_kvartir, kol_okon, kol_kotov: integer;
begin
Write('Kolichestvo gorodov: '); ReadLn(G);
Write('Kolichestvo domov: '); ReadLn(D);
Write('Kolichestvo etagei: '); ReadLn(E);
Write('Kolichestvo podezdov: '); ReadLn(P);
Write('Kolichestvo kvartir: '); ReadLn(K);
Write('Kolichestvo okon: '); ReadLn(O);
Write('Kolichestvo kotov: '); ReadLn(C);
if (G>10) or (D>10) or (E>10) or (P>10) or (K>10) or (O>10) or (C>10) then begin
Writeln('nepravilno vvedeny dannye');
Readln;
end
else begin
WriteLn('--- Results ---');
kol_domov:=G*D;
Writeln('Vsego domov - ', kol_domov);
kol_kvartir:=kol_domov*E*P*K;
Writeln('Vsego kvartir - ', kol_kvartir);
kol_okon:=kol_kvartir*O;
Writeln('Vsego okon - ', kol_okon);
kol_kotov:=kol_domov*C;
Writeln('Vsego kotov - ',kol_kotov);
Readln;
end;
end.
|
|
