Известны условия хостинга:
— стоимость 10 Мбайт дискового рубля в месяц;
— стоимость обеспечения пропускной Мбайт/с — 100 рублей в сутки;
— стоимость обеспечения пропускной Мбайт/с — 150 рублей в сутки.
Какую сумму необходимо выплачивать ежемесячно для обеспечения функционирования веб-сайта, содержащего 120 веб-страниц, каждая из которых имеет информационный объем 10 Мбайт, если предполагаемый ежедневный трафик составит 864 000 Мбайт? Для упрощения расчетов считайте, что месяц длится 30 дней с решением)

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

потхоньку буду дополнять, не так все быстро)) 

№5

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end. 

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

а столбчатая диаграмма

б график 

в ярусная диаграмма

г областная диаграмма

дкруговая диаграмма

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.