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

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

Question

Информатика

Урмас

6 июля, 10:02

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

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

+3

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

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