Составьте программу в паскале со всеми ! хозяин хочет оклеить обоями длинную стену в своем доме. длина этой стены равна а метров, а высота - в метров. рулон обоев имеет длину 12 метров и ширину k см. составьте алгоритм и программу, которая определит стоимость обоев для всей стены, если цена одного рулона c руб.
Var a, b, k, c, s: real;
BeginWriteln(' введите длину стены a');
Readln(a);
Writeln(' введите высату стены b');
Readln (b);
Writeln(' введите ширину обоев k');
Readln (k);
Writeln (' введите цену рулона c');
Readln (c);
s:=(a*b)/(b*12)*K;
Write('всего надо заплатить=',s);
End.
Я там тебе программы файлом скинул ты только сохрани на комп и открой в паскале.