написать программу: ввести число, определить делится ли оно на 2
Answers & Comments
Tatzelwrum
Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K:
uses crt; var n,k,i,c:integer; begin write('N - '); read(n); write('K - '); read(k); c:=0; for i:=10 to 99 do begin if (i=n) and (i mod 2=0) and (i mod k=0) then c:=c+1; end; if c<>0 then else write('yes') end
Answers & Comments
uses crt;
var n,k,i,c:integer;
begin
write('N - ');
read(n);
write('K - ');
read(k);
c:=0;
for i:=10 to 99 do
begin
if (i=n) and (i mod 2=0) and (i mod k=0) then
c:=c+1;
end;
if c<>0 then
else
write('yes')
end