Question

Очень нужна помощь. Пожалуйста, с подробным объяснением!!! Задание в приложении.

Answer 1

1) Можно было и проще: просто вывести цифры через запятую, но коль число...:)
var a, b, c: byte;
begin
     readln(a, b, c);
     writeln(a * 100 + b * 10 + c);
end.

2)
var a, b, c: real;
begin
     readln(a, b, c);
     if (a < b) then a := b;
     if (c > a) then a := c;
     writeln(a);
end.

3) Неполная картинка

4) 
var a, c: integer;
begin
     readln(a);
     while (a > 0) do
     begin
          if (a mod 10 = 5) then inc(c);
          a := a div 10;
     end;
     writeln(c);
end.

5) Тоже не всё видно=)