Помогите с Паскалем ABS.
1 дано пятизначное число. определить сумму второй и пятой цифры.
2 дано пятизначное число. Определить сумму второй и четвёртой цифрой.
3 написать программу в которой подсчитывается количество чётных чисел среди трёх, введёных с клавиатуры
№2.
var a,b: integer;
beginreadln(a);
b:=a;
a:= (a div 10) mod 10;
b:= (b div 1000) mod 10;
writeln(b+a);
end.
№1.
var a,b: integer;
beginreadln(a);
b:=a;
a:= a mod 10;
b:= (b div 1000) mod 10;
writeln(b+a);
end.
Оцени ответ
