Задание 2. Составьте программу, определяющую, является ли сумма цифр данного четырехзначного

Задание 2. Составьте программку, определяющую, является ли сумма цифр данного четырехзначного числа n четным числом.
В паскале, спасибо великое.

Задать свой вопрос
1 ответ
Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0  thenwriteln('четно')else writeln('нечетно')end.
Хиндикайнен Инна
Спасибо большое!
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт