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

На языке Паскаль

Question

Информатика

Бедро

27 апреля, 14:49

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

На языке Паскаль

+5

Ответы (1)

Знаете ответ на вопрос?

Беклар · Answer 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.

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

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

На языке Паскаль