Question

Пожалуйста срочно помогите, очень прошу
тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может

Answer 1

Uses crt;
var a, b, c, d, e: integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(a);
b:=a div 100;
c:=a mod 100;
d:=c div 10;
c:=c mod 10;
e:=b+d+c;
if e mod 3=0
then
begin
e:=c*100+d*10+b;
writeln(e)
end
else
begin
d:=0
e:=b*100+d*10+c;
writeln(e)
end
end.