Напишите программу для задачки: найти сумму цифр трехзначного числа кратных 4На

Напишите программку для задачки: найти сумму цифр трехзначного числа кратных 4
На языке Паскаль

Задать свой вопрос
Генка Шенглер
язык?
Буровина Дарина
Паскаль
1 ответ

begin

 var n := ReadInteger('n =');

 var s := n.ToString;

 var sum := 0;

 foreach var x in s do

   if x in ['4', '8'] then sum += x.ToDigit;

 sum.Println;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт