Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.
Пример:
1 5 9 8
1598
Mod - взятие остатка от деления (35 mod 10 == 5); div - взятие целой части от деления (35 div 10 == 3). Пишу сразу заполненные таблицы:
1) а = 23
p s p>0
23 0 true
2 3 true
0 5 false => s = 5
2) a = 32
p s p>0
32 0 true
3 2 true
0 5 false => s = 5
3) a = 109
p s p>0
109 0 true
10 9 true
1 9 true
0 10 false => s = 10
И та, и та:) 1 команда выводит значение и оставляет курсор на той же строке, а 2 команда выводит значение на экран и переносит курсор на следующую строку.
как вариант можно использовать readln
Апостроф - " обращённый назад " орфографический знак в виде надстрочной запятой ('), который употребляется в буквенном письме разных языков в различных функциях. Например: д'Артаньян, О'Коннор, Жанна д'Арк.