1.без какого устройства не обойтись, если нужно скопировать снимки с фотоаппарата, а шнура к нему нет? 2.где хранятся все программы(в том числе и операционная система) и данные, пока компьютер выключен? 3.в некотором каталоге хранился файл дневник.txt. после того, как в этом каталоге создали подкаталог и переместили в созданный подкаталог файл дневник.txt , полное имя файла стало a: school/user/may/дневник.txt. какого полное имя каталога, в котором хранится файл? 4.в римской системе счисления 1)употребляются цифры 0, 12, 3, 4, 5, 6, 7, 8.9 2)значение цифры завсит от ее положения в числе 3)цифры обозначаются символами a, b, c, 4)значение цифры не зависит от ее положения в числе 5.как записывается десятичное число 9 в двоичной системе? 6.как представлено число 25 в двоичной системе счисления? 7.цветное растровое графическое избражение имеет размер 20*20 точек. какой объем памяти займет это изображение? 8.считая, что каждый символ кодируется двумя байтами, оцените информационный объем следующего предложения в кодировке unicode: солнце вышло из-за луча

1 карта памяти 2 жесткий диск 3

Ввашем варианте после while необходимо писать begin, а после writeln - end. но само по себе решение некрасивое. вот вам еще два на выбор. 1. без массива var   s,n: integer; begin   write('введите сумму: '); read(s);   n: =s div 5000;   if n> 0 then begin       writeln('банкнот "5000" всего: ',n);       s: =s mod 5000       end;   n: =s div 1000;   if n> 0 then begin       writeln('банкнот "1000" всего: ',n);       s: =s mod 1000       end;   n: =s div 500;   if n> 0 then begin       writeln('банкнот "500" всего: ',n);       s: =s mod 500       end;   n: =s div 100;   if n> 0 then begin       writeln('банкнот "100" всего: ',n);       s: =s mod 100       end;   n: =s div 50;   if n> 0 then begin       writeln('банкнот "50" всего: ',n);       s: =s mod 50       end;   n: =s div 10;   if n> 0 then begin       writeln('банкнот "10" всего: ',n);       s: =s mod 10       end;   if s> 0 then writeln('недоплачено: ',s) end. пример: введите сумму: 162504 банкнот "5000" всего: 32 банкнот "1000" всего: 2 банкнот "500" всего: 1 недоплачено: 4 2. с массивом const   k: array[1..6] of integer=(5000,1000,500,100,50,10); var   s,n,i: integer; begin   write('введите сумму: '); read(s);   for i: =1 to 6 do begin       n: =s div k[i];       if n> 0 then begin           writeln('банкнот "',k[i],'" всего: ',n);           s: =s mod k[i]           end       end;   if s> 0 then writeln('недоплачено: ',s) end. пример введите сумму: 15470 банкнот "5000" всего: 3 банкнот "100" всего: 4 банкнот "50" всего: 1 банкнот "10" всего: 2

Тут все достаточно просто. вычитать 4 из 2 смысла нет: получим -2 и что с ним дальше делать? возведя -2 в квадрат, получим 4, но зачем 4 получать за две команды, когда можно сразу возвести исходную двойку в квадрат? а дальнейшее вычитание даст -6, квадрат -6 это 36, что никак не напоминает 64. поэтому первая команда - это "возведи в квадрат" и мы получим 4. из 4 вычитать 4 смыла никакого: получим ноль и дальше что? в квадрат возводить его смысла нет, вычитать еще 4 - будет -4 - и зачем оно нам, когда у нас 4 и так есть? так что остается опять только "возведи в квадрат". получаем 16 и это была вторая команда. вот 16 в квадрат возводить уж точно смысла нет: зачем нам 256, когда идем к 64? так что теперь - только "вычти 4". получим 12. с 12 такое же рассуждение, 144 - это много. опять "вычти 4" и получили 8. отлично, последняя команда "возведи в квадрат" и мы получили 64! ответ: 11221