№3. Составьте программу в Pascal: С клавиатуры вводится трехзначное число. Определить...

Question

№3. Составьте программу в Pascal: С клавиатуры вводится трехзначное число. Определить является ли сумма его цифр двухзначным и четным числом. Используйте: Ввод данных – Read. Вывод данных – Write. Проверка условий - If Then Else. Логическое «И» - AND

Answer 1

Program pascal;
var a, b1, b2, b3, c:integer;
begin
read(a);
b1:=a mod 10;
b2:=(a mod 100) div 10;
b3:=a div 100;
c:=b1+b2+b3;
if (c>=10) and (c<100) and (c mod 2=0)then <br>write('Yes')
else
write('No');
end.