Вирішити задачу і записати в Excel Розрахуйте потрібну суму на закупку розсади полуниці сорту
«королева Вікторія» за таких умов:
• потрібно купити 1000 кущів;

• саджанці продають пакетами, кожний пакет містить 10 саджан-
ців і коштує 169 грн;

• за першу сотню саджанців покупець платить повну вартість,

за кожну наступну сотню вартість зменшується на 1 % від попе-
редньої.

пролететь-расстояниепроехать на лифте-номер этажаспрыгнуть-высота,скоростьпоесть-количествоповернуть-время,напровление

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

койка, стройка, трест, рой, репа, тройка, река, серп,строка.

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

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.