Помогите пжст даны 4 цифры. дописать программу, которая вычислит число по этим цифрам. var a0, a1, a2, a3: longint; Begin read(a3, a2, a1, a0); ... write(a) End. пример: ввод: 1 5 9 8 вывод: 1598
Помогите пжст
даны 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.
Гость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
Не нашли ответ?
Похожие вопросы