** паскале нужно сделать: найти количество четных чисел в диапазоне от a до b; поменять...

Question

На паскале нужно сделать:
найти количество четных чисел в диапазоне от a до b;
поменять местами значение переменных a и b
Даю 70 баллов! срочно!!

Answer 1

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

Comments

спасибо!

---

Для "спасибо" есть кнопочка! )