Определите и выведите на экран количество числе между 20 и 1000 которые делятся без остатка одновременно на 4, 5 и 9. 2. найдите и выведите на экран количество двузначных чисел, у которых сумма цифр равна 13

const

  n = 30;

var

  a: array[1..n] of byte;

  i, count: integer;

begin

  randomize;

  for i : = 1 to n do

  begin

      a[i] : = random(51) + 150;

      writeln('рост претендета № ', i: 2, ' - ', a[i]);

  end;

  write('номера подходящих кандидатур: ');

  for i : = 1 to n do

      if a[i] > = 180 then

      begin

          inc(count);

          write(i, ' ');

      end;

  writeln;

  writeln('общее количество подходящих претендентов: ', count);

end.

чес гря не понимаю, в чем тут же все указано. безо всякого с++ в экселе мона сотворить этакий "калькулятор"))

 

есть постоянная 100 (гк золота)

и переменные х и у, их вводит, я так понял, пользователь программулечки,

дальше сии переменные суммируются

и из них считают

70% - результат сообщают польщователю с пометкой "погибшие"

26% результат сообщают польщователю с пометкой "тяжело ранено"

4% результат сообщают польщователю с пометкой "осталось в живых"

а постоянную100 делят на эти 4% от х+у ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"

 

затем, если надо, обнулить х и у для следкющего года. 

а результаты, если надо получить данные за два года, прибавлять к предыдущим, уже ну и еще куча вариантов обработки вдруг нужна выборка по четным , вдруг еще

 

  мона поставить переменную, считающую годы с каждым вводом х и

 

 

в ощем - подвинтеся, дайте простор моей