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

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.