помогите с информатикой!!!
Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четной
паскаль
Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четной
паскаль
More Questions From This User See All
Answers & Comments
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.