Помогите с информатикой!

Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четной

паскаль

Question

Информатика

Лидя

3 апреля, 02:53

Помогите с информатикой!

Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четной

паскаль

+4

Ответы (1)

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

Водя · Answer 1

Var

a:string;

s:integer;

begin

write ('Введите трехзначное число: ') ;

readln (a) ;

s:=StrToInt (a[1]) + StrToInt (a[2]) + StrToInt (a[3]) ;

if s mod 2=0 then writeln ('Да, верно') else writeln ('Нет, не верно')

end.

Помогите с информатикой!Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четнойпаскаль

Помогите с информатикой!

Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четной

паскаль