Var a,b,c,d:integer; Begin Write('Введите 4числа: '); readln(a,b,c,d); if (a mod 5 = 0 ) then writeln(a,' делится на 5 без остатка'); if (b mod 5 = 0 ) then writeln(b,' делится на 5 без остатка'); if (c mod 5 = 0 ) then writeln(c,' делится на 5 без остатка'); if (d mod 5 = 0 ) then writeln(d,' делится на 5 без остатка'); end.
program x; uses crt; var mas: array[1..4] of integer; i:integer; begin clrscr; writeln('Введите 4 числа '') ; for i:=1 to 4 do begin readln(mas[i]); end; for i:=1 to 4 do if(mas[i] mod 5=0) then begin writeln('Числа без остатка ', mas[i]); endelse if (mas[i] mod 5<>0) then writeln('Числа с остатком ', mas[i]) ; readln;<span> end.</span>