Var
a, b: integer;
Begin
Writeln('Введите 2 числа');
Read(a,b);
if (a*b mod 3 = 0) then Writeln('Произведение чисел ', a, ' и ', b, ' делится нацело на 3')
else Writeln('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится');
end.
Вот.................................................
5 раз больше не ту!!!!! а тут что так трудно
при
d = 34
s 0 34 68 102 136 170 204 238 272 306 340 374
n 0 5 10 15 20 25 30 35 40 45 50 55
Первое - каска
Второе -тяжесть