Составьте программу в паскале со всеми строчками! Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна А метров, а высота - В метров. Рулон обоев имеет длину 12 метров и ширину K см. Составьте алгоритм и программу, которая определит стоимость обоев для всей стены, если цена одного рулона C руб.

Question

Информатика

Линка

23 сентября, 05:56

Составьте программу в паскале со всеми строчками! Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна А метров, а высота - В метров. Рулон обоев имеет длину 12 метров и ширину K см. Составьте алгоритм и программу, которая определит стоимость обоев для всей стены, если цена одного рулона C руб.

+1

Ответы (1)

Знаете ответ на вопрос?

Василка · Answer 1

Var a, b, k, c: real; n: integer;

begin

readln (a, b, k, c) ;

n:=round ((a*b) / (12*k/100) + 0.5) ;

writeln (n*c:5:2) ;

end.

Пример:

5 4 80 120

360.00