Question

Информатика
даны два целых числа если сумма этих чисел кратна 3 то найти их произведение иначе увеличить каждое из них вдвое Это паскаль .Ребят помогите пожалуйста​

Answer 1

Ответ:

program twonumbers;

var

 first, second: integer;

begin

 read(first, second);

 if ((first + second) mod 3 = 0) then

   write(first * second)

 else

 begin

   first := first * 2;

   second := second * 2;

   write(first, ' ', second);

 end;

end.

Объяснение:

program twonumbers;  // Название программы

var

 first, second: integer;  // Целочисленные переменные, хранящие вводимые с клавиатуры значения

begin  // Начало программы

 read(first, second);  // Считываем 2 целых числа с клавиатуры

 if ((first + second) mod 3 = 0) then  // Если сумма чисел кратна 3

   write(first * second)  // Выводим их произведение

 else  // Иначе

 begin  // Начало цикла

   first := first * 2;  // Увеличиваем первое вдвое

   second := second * 2;  // Увеличиваем второе вдвое

   write(first, ' ', second);  // Выводим их

 end;  // Конец цикла

end. // Конец программы