1) даны объёмы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность? 2) определить является ли число А делителем числа В. и наоборот? составить программы на паскале

Question

Покемончик

Информатика

30 марта, 12:48

1) даны объёмы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность? 2) определить является ли число А делителем числа В. и наоборот? составить программы на паскале

+5

Ответы (1)

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

Luchiana · Answer 1

Program plotnost;

Var

m1, m2, v1, v2: integer;

Begin

readln (m1);

readln (v1);

readln (m2);

readln (v2);

if m1/v1>m2/v2 then

writeln ('плотность тела 1 больше');

if m1/v1
writeln ('плотность тела 2 больше');

else

writeln ('плотности равны');

end.

Program delitel;

Var

a, b: integer;

begin

readln (a);

readln (b);

if amodb=0 then

writeln ('b делитель числа а');

if bmoda=0 then

writeln ('a делитель числа b');

else

writeln ('ни одно число не является делителем другого');

end.