информатика 9 класс! Написать программу на Паскале для решения задачи.
В комнате шириной - А, длиной - В и высотой - H есть два окна размером M на N и дверь с размерами C на D. На 1 квадратный метр расходуется 200 г краски.
Вычислите, какое количество краски требуется для покраски стен в комнате.
Находит саммое длинное слово
Program Program1;
var
s,v1,v2,v3,t1,t2,t3:real;
begin
write('Введите скорость движения по равнине: ');
readln(v1);
write('Введите скорость движения в гору: ');
readln(v2);
write('Введите скорость движения под гору: ');
readln(v3);
write('Введите время движения по равнине: ');
readln(t1);
write('Введите время движения в гору: ');
readln(t2);
write('Введите время движения под гору: ');
readln(t3);
S:=t1*v1+t2*v2+t3*v3;
writeln('Путь = ',S);
end.
Program Program2;
var
s,v,v1,t1,t2:real;
begin
write('Введите скорость лодки в стоячей воде: ');
readln(v);
write('Введите скорость течения реки: ');
readln(v1);
write('Введите время движения по озеру: ');
readln(t1);
write('Введите время движения против течения реки: ');
readln(t2);
S:=t1*v+t2*(v-v1);
writeln('Путь = ',S);
end.