На паскале нужно сделать:
найти количество четных чисел в диапазоне от a до b;
поменять местами значение переменных a и b
Даю 70 баллов! срочно!!
найти количество четных чисел в диапазоне от a до b;
поменять местами значение переменных a и b
Даю 70 баллов! срочно!!
More Questions From This User See All
Answers & Comments
Verified answer
1.var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:=a to b do
if i mod 2=0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
5 20
k = 8
2.
var a,b,c:integer;
begin
readln(a,b);
c:=a;
a:=b;
b:=c;
writeln(a,' ',b);
end.
Пример:
5 20
20 5