С клавиатуры вводятся два целых числа. Выведите ответ "да" если их произведение кратно 3. В противоположном случае введите ответ "нет".
С клавиатуры вводятся два целых числа. Выведите ответ "да" если их произведение кратно 3. В противоположном случае введите ответ "нет".
Гость
Ответ(ы) на вопрос:
Гостьvar
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
if (a1*a2 mod 3 = 0) then
begin
writeln('da');
end
else
writeln('net');
end.
Не нашли ответ?
Похожие вопросы