Напишите программу на паскале определения суммы цифр числа. укажите является ли полученный результат четным числом.
oxpoluhina2017
1
01.04.2019 23:20
0
Другие вопросы по теме Информатика
Łųçů
08.06.2019 13:50
АнимешникИз2К17
08.06.2019 13:50
alibekovberkut
08.06.2019 13:50
heh18
17.06.2019 01:40
МаШкА428
17.06.2019 01:40
Aleshchksuni
25.08.2019 11:10
aaysu228
25.08.2019 11:10
milimili95
25.08.2019 11:10
teterev2003
12.05.2020 10:24
Популярные вопросы
- Составить 10 предложений с любыми фразеологизмами...
1 - Пока лена читает 15 слов, витя успевает прочитать 13 слов. лена прочитала 60...
3 - Спроктической работой : установоение связи между тектаническими структурами...
2 - Всадник скакал 4 ч со скоростью 30 км/ч и 2 ч со скоростью 40 км/ч какое расстояние...
1 - Как пишется пыль вытренна или пыль вытеренна?...
2 - До какой долготы на запад его суда? тема: путешествия колумба...
1 - 1. что такое конкуренто человека, каковы пути ее повышение? 2. почему непрерывное...
2 - Придумайте названия для команды связаное с сказками пушкина...
3 - Сочининие о вреде курения,не менее 6 пунктов(начинаяя от вреда легким,заканчивая...
1 - Можно ли вильгельма нормандского деятелем? аргументируйте свой ответ...
1
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.