Ответы
Ответ дал:
0
uses crt;
const m=100;
var
a,b,c,s,st: integer ;
begin
write ('Введите длину помещения (см) ');
readln (a);
write ('Введите ширину помещения (см) ');
readln (b);
write ('Введите стоимость 1 пластины (руб) ');
readln (c);
write ('Введите количество денег в наличии (руб) ');
readln (s);
if (a mod m)=0 then a:=(a div m) else a:=(a div m)+1;
if (b mod m)=0 then b:=(b div m) else b:=(b div m)+1;
st:=a*b*c;
if st<=s
then begin
TextColor(LightBlue);
WriteLn('Денег на закупку достаточно.');
TextColor(White);
end
else begin
TextColor(Red);
WriteLn('На закупку не хватает ',st-s,' руб.');
TextColor(White);
end;
end.
const m=100;
var
a,b,c,s,st: integer ;
begin
write ('Введите длину помещения (см) ');
readln (a);
write ('Введите ширину помещения (см) ');
readln (b);
write ('Введите стоимость 1 пластины (руб) ');
readln (c);
write ('Введите количество денег в наличии (руб) ');
readln (s);
if (a mod m)=0 then a:=(a div m) else a:=(a div m)+1;
if (b mod m)=0 then b:=(b div m) else b:=(b div m)+1;
st:=a*b*c;
if st<=s
then begin
TextColor(LightBlue);
WriteLn('Денег на закупку достаточно.');
TextColor(White);
end
else begin
TextColor(Red);
WriteLn('На закупку не хватает ',st-s,' руб.');
TextColor(White);
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад