До ть будь ласка зробити таблицю у MS Excel за зазначеними умовами:

Музей пропонує знижки відвідувачам, залежно від категорії:

 дітям до 7 років – вхід безкоштовний (знижка складає 100%),

 для дітей від 7 до 17 років – знижка складає 15%,

 для студентів – знижка складає 50%,

 пільговикам різних категорій – 30%,

 решті категорій - знижки не надаються.

Визначте для кожного відвідувача відсоток знижки, суму знижки і суму до сплати з урахуванням знижки.

Розрахувати загальну вартість придбаних квитків в музеї

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

ps а вообще, каждое нужно писать отдельно

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.

второй вариант