Помогите решить в Паскале.плиз. Проверьте,делится ли сумма произвольных трех чисел,введенных с клавиатуры,на последнее из них без остатка.
Помогите решить в Паскале.плиз. Проверьте,делится ли сумма произвольных трех чисел,введенных с клавиатуры,на последнее из них без остатка.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы