Даны 4 цифры. дописать программу, которая вычислит число по этим цифрам.

var a0, a1, a2, a3: longint;

Begin

read (a3, a2, a1, a0) ;

...

write (a)

End.

пример:

ввод:

1

5

9

8

вывод:

1598

Question

Информатика

Сола

29 декабря, 22:16

Даны 4 цифры. дописать программу, которая вычислит число по этим цифрам.

var a0, a1, a2, a3: longint;

Begin

read (a3, a2, a1, a0) ;

...

write (a)

End.

пример:

ввод:

1

5

9

8

вывод:

1598

+5

Ответы (1)

Знаете ответ на вопрос?

Кузена · Answer 1

1. Добавьте в описание переменных переменную a

2. код будет такой:

var a0, a1, a2, a3, a: longint;

Begin

read (a3, a2, a1, a0) ;

a:=a0+a1*10+a2*100+a3*1000;

write (a)

End.

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

Даны 4 цифры. дописать программу, которая вычислит число по этим цифрам.

var a0, a1, a2, a3: longint;

Begin

read (a3, a2, a1, a0) ;

...

write (a)

End.

пример:

ввод:

1

5

9

8

вывод:

1598