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; end.
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.
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;
end.