Напишите программу в Паскаль для решения задачи:

Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10

Question

Информатика

Леша

27 апреля, 20:43

Напишите программу в Паскаль для решения задачи:

Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10

+2

Ответы (1)

Знаете ответ?

Гедимин · Answer 1

begin

var s: string;

var i, k: integer;

readln (s) ;

try

foreach c: char in s do

k + = Byte. Parse (c) ;

writeln (k) ;

except

on System. FormatException do

writeln ('Введи число - _-') ;

else writeln ('Ошибка') ;

end;

end.

Напишите программу в Паскаль для решения задачи:Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10

Напишите программу в Паскаль для решения задачи:

Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10