Предмет: Информатика,
автор: mariska43728
Помогите,пожалуйста
Нужно составить в Паскале
Приложения:
Ответы
Автор ответа:
1
Ответ:
pascal
Объяснение:
var n, s, k:integer;
begin
Write('Введите число: ');
ReadLn(n);
while n > 0 do
begin
if (n mod 2 = 1) then s := s + n mod 10 else k:=1;
n := n div 10;
end;
if k > 0 then WriteLn(s) else WriteLn('0');
end.
mariska43728:
Почему при вводе числа он не выводит сумму нечётных чисел?
Например я ввожу 356, но программа выводит число 6. Но сумма же далеко не6
Если ввести 135, то выведет 0,это верно
Но сумму нечётных не выводит
сорри... задание запутанное, я четные суммировал. исправил...
Спасибо
Помогите ещё с одним заданием пожалуйста, сейчас добавила
Интересные вопросы
Предмет: Русский язык,
автор: dsa110213
Предмет: Другие предметы,
автор: alnkalnk
Предмет: Русский язык,
автор: wwwdeva8484
Предмет: География,
автор: em2005
Предмет: Математика,
автор: сабинка39