Придумай рисунок который может сделать чертёжник начерти его в тетради в клетку и запиши алгоритм для этого рисунка используя сокращённую запись команд.

Вперёд 100 назад 50 влево 90 вперёд 50 назад 100 получился крест

Компьютерный вирус это специально написанная не большая по размерам программа, которая может приписывать себя к другим программам то есть  заражать их, а также выполнять нежелательные действия на компьютере. программа внутри которой находится вирус называется зараженной. когда такая программа находит работу то сначала получает   вирус. вирус находит и заражает другие программы, а также выполняет вредные действия. например: портит файлы или таблицу размещения файлов на диске а также засоряет оперативную память. 

решение, что называется, "в лоб"

var s,k1,k5,k10,k50,k100,k500,k1000,k10000: integer;

begin

write('s = '); readln(s);

k1: =0; k5: =0; k10: =0; k50: =0;  

k100: =0; k500: =0; k1000: =0; k10000: =0;

while s> =10000 do begin s: =s-10000; k10000: =k10000+1; end;

while s> =1000 do begin s: =s-1000; k1000: =k1000+1; end;

while s> =500 do begin s: =s-500; k500: =k500+1; end;

while s> =100 do begin s: =s-100; k100: =k100+1; end;

while s> =50 do begin s: =s-50; k50: =k50+1; end;

while s> =10 do begin s: =s-10; k10: =k10+1; end;

while s> =5 do begin s: =s-5; k5: =k5+1; end;

while s> =1 do begin s: =s-1; k1: =k1+1; end;

writeln('k10000=',k10000,' k1000=',k1000,' k500=',k500,' k100=',k100,' k50=',k50,' k10=',k10,' k5=',k5,' k1=',k1);

writeln(' всего купюр = ',k1+k5+k10+k50+k100+k500+k1000+k10000);

end.

подробнее - на -