написать программу
1. Даны 2 трёхзначных числа. Определите, какое из чисел является четным
2. Дано натуральное число. Определить является ли сумма его цифр < 10
1. Даны 2 трёхзначных числа. Определите, какое из чисел является четным
2. Дано натуральное число. Определить является ли сумма его цифр < 10
Answers & Comments
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.