Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Найти сумму N чисел натурального ряда кратных 7, начиная с k>0, N> 0,N и K вводятся с клавиатуры.

Ответ оставил Гость

//найти сумму N чисел натурального ряда кратных 7, 
//начиная с k>0, N> 0,N и K вводятся с клавиатуры.

var k,k1,n,i,s  : integer;
begin
  s:=0;
  i:=0;
  writeln (Введите число K);
  readln (k);
  k1:=k;
  writeln (Введите число N);
  readln (n);
  if (k>1) and (n>1) then
    begin
      while i        begin
          if (k mod 7)=0 then
            begin
              s:=s+k;
              //writeln (i,  ,k,  ,s);// можно получить промежуточные результаты
              k:=k+7;
              i:=i+1
            end
           else k:=k+1;
        end;
   writeln (Сумма ,n, чисел кратных 7 начиная от числа ,k1, равна ,s);
   end;
     writeln (конец программы);
 end.