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.
Ответ: 3
Если точно: <span>3.8000000000000000E+001</span>
Пользовательский интерфейс
Для 16 (2^4)
640*480*4=1228800 бит=153600 байт
512*1024=524288 байт
524288 /153600=3
Для 256 (2^8)
640*480*8=2457600 бит=307200 байт
512*1024=524288 байт
524288 /307200=1