Question

Помогите решить в Паскале.плиз.Проверьте,делится ли сумма произвольных трех чисел,введенных с клавиатуры,на последнее из них без остатка.

Answer 1

uses crt;
var a,b,c,x,y:integer;
begin
write('vvedite 3 4isla');
read(a,b,c);
x:=a mod c;
y:=b mod c;
if (x=0) and (y=0) then
write('delits9')
else
write('ne delits9');
read;
end.

Answer 2

Проверка деления суммы трех чисел на последнее число без остатка в Паскале

Чтобы проверить, делится ли сумма трех произвольных чисел, введенных с клавиатуры, на последнее из них без остатка, можно использовать язык программирования Паскаль. Вот пример кода на Паскале, который выполняет данную проверку:

program CheckDivision;

var
  num1, num2, num3, sum: Integer;

begin
  // Ввод трех чисел с клавиатуры
  WriteLn('Введите первое число:');
  ReadLn(num1);
  
  WriteLn('Введите второе число:');
  ReadLn(num2);
  
  WriteLn('Введите третье число:');
  ReadLn(num3);
  
  // Вычисление суммы трех чисел
  sum := num1 + num2 + num3;
  
  // Проверка деления суммы на последнее число без остатка
  if sum mod num3 = 0 then
    WriteLn('Сумма трех чисел делится на последнее число без остатка')
  else
    WriteLn('Сумма трех чисел не делится на последнее число без остатка');
end.

В этом коде мы сначала запрашиваем у пользователя ввод трех чисел с клавиатуры. Затем мы вычисляем сумму этих трех чисел и проверяем, делится ли эта сумма на последнее число без остатка, используя оператор модуля (`mod`). Если деление происходит без остатка, выводится сообщение "Сумма трех чисел делится на последнее число без остатка", в противном случае выводится сообщение "Сумма трех чисел не делится на последнее число без остатка".

Примечание: Пожалуйста, учтите, что код на Паскале чувствителен к регистру, поэтому убедитесь, что вы используете правильный регистр при вводе кода.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.