Question

написать программу
1. Даны 2 трёхзначных числа. Определите, какое из чисел является четным
2. Дано натуральное число. Определить является ли сумма его цифр < 10
​

Answer 1

1) program test;

var a,b: integer;

begin

read (a,b);

writeln;

if a mod 2 =0 then writeln (a);

if b mod 2 = 0 then write (b);

end.

2) program test;

var a,s: integer;

begin

s:=0;

readln(a);

while a>0 do begin

s:=s+a mod 10;

a:=a div 10;

end;

if s<10 then write ('Сумма цифр меньше 10') else write ('Сумма цифр больше 10');

end.