Задание:
1) даны объемы и массы двух тел из разных материалов. Материал какого из тел имеет большую плотность? 2) определить является ли число А делителемчисла В. И наоборот?
Решение:
var m1,m2,v1,v2: real; Begin read (m1,m2,v1,v2); if m1/v1 > m2/v2 then writeln ('Pervoe') else writeln ('Vtoroje'); End. var a,b: integer; Begin read (a,b); writeln ('A delitel B — ', A mod b=0); writeln ('B delitel A — ', B mod A=0); End.
Знаете другой ответ?