Он нужен для измерения давления
Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
А) (a mod 1 = 0) And (a mod a = 0)
Б) a mod 1 = 0
В)(a >= 10) and (a<= 99)
Ответ:а) Ты общаешься с друзьями и получаешь новую информацию о их интересах например.
В школе ты получаешь новую новую информацию.
б)Когда один из твоих друзей или знакомых сообщил что какой то твой друг соврал тебе.
Или когда в школе ты получил информацию и тебе через год объясняют эту же тему но добавляется новая информация (Например: про расстояние)
( ПРИМЕРОМ (Б) Я НЕ КОГО НЕ ХОЧУ ОБИДИТЬ.)