C клавиатуры вводится целое число. Найти и вывести сумму четных

C клавиатуры вводится целое число. Отыскать и вывести сумму четных цифр и нечетных цифр этого числа. (Pascal)

Задать свой вопрос
2 ответа

var d,a,s1,s2:integer;

Begin

Read(a);

While agt;0 do begin

d:=a mod 10;

if d mod 2 =0 then s2:=s2+d

 else  

  s1:=s1+d;

a:=a div 10;

 end;

 writeln(s1,'  ',s2);

 End.

program xxxx;

uses crt;

var

i,a,s1,s2:integer;

begin

read(a);

for i:= 1 to a do

if i mod 2 = 0 then s2:=s2+i else s1:=s1=i;

writeln(s1,s2);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт