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

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

Question

Информатика

Севастьяна

2 октября, 19:21

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

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

+1

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

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