Question

Даны x,y,z. Определить переменные кратные 3 (делиться на три без остатка), в случае отсутствия таких переменных напечатать соответствующие сообщения
Помогите, пожалуйста

Answer 1

Var  x, y, z, k: integer;

begin 
readln(x, y, z);
k:=0; 
if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем');end; 
if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем');end; 
if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end; 
if (k =0) then writeln('Переменных, кратных трем, не обнаружено!');
end.