Задание:
Начали писать программы в Паскаль, и надо как то оформить задачу: Поклейка прямоугольной стены. Длина стены — a. Высота — b. Рулоны 12 (длина) на 1 (ширина)
Решение:
var a,b,k,i: integer; beginreadln (a,b,k); if a/12>b then i: =(a div 12)+1 else i: =b; writeln ('Cena — ',k*i); end.
Знаете другой ответ?