Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите пжст
даны 4 цифры. дописать программу, которая вычислит число по этим цифрам.
var a0, a1, a2, a3: longint;
Begin
read(a3, a2, a1, a0);
...
write(a)
End.
пример:
ввод:
1
5
9
8
вывод:
1598

Ответ оставил Гость

Var  a0, a1, a2, a3: longint;
begin 
  readln(a3, a2, a1, a0); 
  write(a3 * 1000 + a2 * 100 + a1 * 10 + a0);
end.