a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
0. так как сумма положительных чисел не может быть меньше 10 по условию
.............................................
procedure pr_max(a,b,c:integer; var max:integer);
begin
if a>b then max:=a else max:=b;
if c>max then max:=c;
end;
var m:integer;
begin
pr_max(15,47,24,m);
writeln(m);
end.
Результат:
47
B=132+ 120/10= 132+12=144
a= 144/12*10= 12*10=120
Ответ:120