Question

Помогите пожалуйста Информатика 9 класс. Напишите Задачу на языке Паскаль, и если можно графическими схемами
1.Даны объемы и массы двух тел изготовленных из разных материалов. Материал какого из тел имеет МЕНЬШУЮ плотность?
2.Даны 3 вещественных числа. Определить сумму тех чисел, которые больше 5.

Answer 1

1) var

v1,v2,m1,m2:integer;

begin

readln(m1,v1,m2,v2);

if (m1/v1)>(m2/m2) then writeln('Первое')

else if (m1/v1)<(m2/m2) then writeln('Второе')

else writeln('Плотности равны')

end.

2) var

a,b,c,s:real;

begin

readln(a,b,c);

s:=0;

if a>5 then s:=s+a;

if b>5 then s:=s+b;

if c>5 then s:=s+c;

writeln(s)

end.