В корзине находится 8 яблок: красных, жёлтых, зелёных. Достали 1 жёлтое яблоко. Какое количество информации получили?

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

исполняемые файлы:

test.exe = 459 кб

photo.exe = 117 кб

letter.com - 198 кб

графические файлы:

nature.jpg = 314 кб

program.bmp = 361 кб

текст. документы:

comp.doc = 238 кб

получается порядок:

test.exe 

program.bmp

nature.jpg

comp.doc

letter.com

photo.exe 

в блок схемах не сильна

var n: integer;

s,s0: real;

begin

  n: =1;

  s: =10;

  repeat

      n: =n+1;

      s: = s + (100+p)*s0/100;

      s0: =(100+p)*s0/100;

  until s> 200;

  writeln(s);

end.