1. Хозяин хочет оклеить обоями стену длиной b и высотой a метров. У него имеется k рулонов шириной 55 см и длиной 10,5 м. Хватит ли обоев на оклейку стены? Как это решить?ПаскальProgram gg; Var a, b, k, g, u, i, max, w:integer; Begin; Writeln ('Введите высоту стены '); Readln (a); Writeln ('Введите длину стены '); Readln (b); Writeln ('Введите колличество рулонов'); Readln (k); u: = (ab); g:=0.55; w:=10.5; Writeln ('Площадь стены равна метров ', u); i:=gwk; Writeln ('Общая площадь обоев метров', i); Readln (u, i); if u > i and then Writeln ('Подходит'); else Writeln ('Не подходит') end.

Question

Лев Поляков

Информатика

28 апреля, 14:22

1. Хозяин хочет оклеить обоями стену длиной b и высотой a метров. У него имеется k рулонов шириной 55 см и длиной 10,5 м. Хватит ли обоев на оклейку стены? Как это решить?ПаскальProgram gg; Var a, b, k, g, u, i, max, w:integer; Begin; Writeln ('Введите высоту стены '); Readln (a); Writeln ('Введите длину стены '); Readln (b); Writeln ('Введите колличество рулонов'); Readln (k); u: = (ab); g:=0.55; w:=10.5; Writeln ('Площадь стены равна метров ', u); i:=gwk; Writeln ('Общая площадь обоев метров', i); Readln (u, i); if u > i and then Writeln ('Подходит'); else Writeln ('Не подходит') end.

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Вера Кононова · Answer 1

Program gg;

Var a, b, k, g, u, i, max, wireal;

Begin

Write ('Ввести высоту стены:');

Readin (a);

Write ('длина стены: ');

Readin (b};

Write ('количество рулонов: ');

Readin (b};

Writeln ('количество рулонов: ',

Readin (K};

u = (а*b);

g: = 0.55;

w:=10.5;

Writeln ('площадь стены равно метров: ', i) 7;

i:=g*w*k;

if i > u then Writeln ('Подходит') else Writeln ('Не подходит");

end.

Вроде ничего не забыла, но ответ будет такой:

Высота стены - 5;

Длина стены - 5;

Количество рулонов - 5;

Площадь всей стены - 25:

Общая лощадь обоев - 28.875

Значит все подходит.