В корзине было 44 яблока. Каждые 15 минут из нее брали 4 яблока. Через какое время в корзине не останется яблок? ЗАПИШИТЕ АЛГОРИТМ РЕШЕНИЯ В ВИДЕ БЛОК-СХЕМ И НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ.

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

program summa;

uses crt;

var  i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.

вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину

переменные - это величины, которые могут менять свое значение в процессе выполнения программы.

программа на паскале:

program xxx;

    var i, n, k : integer;

begin

  write('введите число n-');

  readln(n);

  k=0;

  for i: =1 to n do

      if n mod i = 0 then k: =k+1;

  write('количество делителей = ', k);

  readln

end.