Предмет: Информатика,
автор: nastya14102
дано трехзначное число. опредилить сумму его разрядов
Ответы
Автор ответа:
0
var N, S : Word;
begin
Write('Введите 3-хзначное число: '); ReadLn(N);
S := 0; while N > 0 do begin S := S + N mod 10; N := N div 10; end;
Write('Сумма цифр = ', S); if (S > 9) and (S < 100) then WriteLn(' - двузначное число') else WriteLn(' - не двузначное число');
end.
begin
Write('Введите 3-хзначное число: '); ReadLn(N);
S := 0; while N > 0 do begin S := S + N mod 10; N := N div 10; end;
Write('Сумма цифр = ', S); if (S > 9) and (S < 100) then WriteLn(' - двузначное число') else WriteLn(' - не двузначное число');
end.
Похожие вопросы
Предмет: Обществознание,
автор: ffffffffttttt
Предмет: Физика,
автор: JxBadMood001
Предмет: Физика,
автор: fanomonava
Предмет: Математика,
автор: alla0089
Предмет: Алгебра,
автор: Kivva001