Эклео
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.
Answers & Comments
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.