Напишите программку в паскале!!!!! Заблаговременно СПАСИБО!!!Для покраски 1 м2 потолка требуется

Напишите программку в паскале!!!!! Заблаговременно СПАСИБО!!!
Для покраски 1 м2 потолка нужно a г краски. Краска продается в банках по b кг. Сколько банок краски необходимо покупать для покраски потолка площадью c кв2?

Задать свой вопрос
1 ответ
Var a,b,c:integer;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
b:=b*1000;
c:=c*a;
a:=c div b;
if c mod b lt;gt; 0 then a:=a+1;
Write('Требуемое количество банок: ',a);
End.


Пример работы программки:

a = 123
b = 4
c = 56789
Требуемое количество банок: 1747
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт