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

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

Question

Информатика

Бронислав

3 марта, 11:00

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

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

+4

Ответы (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