Напишите программу на паскале определения суммы цифр числа. ...

Question

Напишите программу на паскале определения суммы цифр числа. ...

Vasy

Напишите программу на паскале определения суммы цифр числа. Укажите является ли полученный результат четным числом.

Есть ответ

17.12.2022

291

Ответ

Answer 1 · 17.12.2022

var

a, c : integer;

begin

read (a);

c := 0;

while a > 0 do

begin

c := c + a mod 10;

a := a div 10;

end;

writeln (c);

if c mod 2 = 0 then write ('Четное') else write ('Нечетное');

end.

Напишите программу на паскале определения суммы цифр числа. ...

Напишите программу на паскале определения суммы цифр числа. Укажите является ли полученный результат четным числом.

Ответ

var a, c : integer; begin read (a); c := 0; while a > 0 do begin c := c + a mod 10; a := a div 10; end; writeln (c); if c mod 2 = 0 then write ('Четное') else write ('Нечетное'); end.

var

a, c : integer;

begin

read (a);

c := 0;

while a > 0 do

begin

c := c + a mod 10;

a := a div 10;

end;

writeln (c);

if c mod 2 = 0 then write ('Четное') else write ('Нечетное');

end.