Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
32 Кб = 32768 байт = 262144 бит
8х = 262144
х = 32768
Помогите: Составьте слова из букв к,е,н,г,ш,а,п,р,о,м,и,т
irichka7575
Шар,шаг,ритм,рог,ринг,тигр,рот,ром,ген,мера,кино,мир,пот,море,ком,кит,тик,ток,шпат,морг,тир
При перемещении выделенная область растрового изображения или объект в векторном рисунке удаляются, а их копия помещается в буфер обмена. Затем копия из буфера обмена помещается в область рисования и перетаскивается мышью в нужное место растрового изображения или векторного рисунка.
При удалении выделенная область растрового изображения или объект в векторном рисунке просто удаляются.
При копировании сначала выделяется область растрового изображения или объект в векторном рисунке. Затем копия выделенной растровой области или векторного объекта помещается в специальную область памяти операционной системы, которая называется буфером обмена<span>. Наконец, копия из буфера обмена помещается в область рисования и перетаскивается мышью в нужное место растрового изображения или векторного рисунка.</span>
