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

Question

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

---

---

---

Answer 1

program Project1;  
uses   Crt;  
var   k, summa : Word;  
 n, i : Byte;
  begin  
 Clrscr;  
Write('Input k= ');
Readln(k);  
write('Input n= ');
Readln(n);  
summa := 0;
  i := 1;  
while ((i <= n)) do  <br> begin    
if ((k mod 2) = 0) then  
  begin      
summa := summa + k;      
 Inc(i);  
  end;    
 Inc(k);  
end;  
Writeln('Summa= ',summa);  
Readln;
end.