Напишите программу на паскале определения суммы цифр числа. укажите является ли полученный результат четным числом.
209
292
Ответы на вопрос:
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.
Чем компьютер вреден вреден он тем что многие сейчас 1\3 своей жизни люди проводят за компьютером,телефоном,ноутбуков,етим они гробят себе зрение и осанку лучше выйти на улицуи погулять гуляйте почаще а хорошие качества есть мы можем найти полезную информацыю . раньше люди жили без компьютеров и обходились без него но сейчас 21 век и все привыкли сидеть за компомно хотябы 1 в день проыетривайтесь на улице и делайте зарядку глаз
Популярно: Информатика
-
Араиприпо18.02.2021 05:23
-
Tkora04.01.2023 20:47
-
buckubarnes1701.06.2020 20:03
-
MUSHDAN08.10.2020 08:44
-
Rose12345678927.02.2020 10:56
-
Shinesss709.03.2020 14:36
-
Анц22.04.2020 04:50
-
hdn1202.10.2021 14:53
-
FoxFantasy15.02.2020 08:19
-
Юлиан22823.10.2020 12:17