На паскале необходимо сделать:отыскать количество четных чисел в спектре от a

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

Задать свой вопрос
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
Владислав
спасибо!
Людмила Гоноцкая
Для "спасибо" есть кнопка! )
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт