Інформатика 8 клас (pascal abc) 6. Створіть проект - вопрос №8614583706 от Frisk011 13.06.2021 18:10

Question

Информатика: Інформатика 8 клас (pascal abc) 6. Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.​

Frisk011 · Answer

var  n, x, i, sum: integer; begin  readln(n);  readln(x);  sum := 0;  for i:=1 to n do  begin  sum := sum + x;  x := x + 5;  end;  writeln(sum);end....

Інформатика 8 клас (pascal abc) 6. Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.​

Інформатика 8 клас (pascal abc) 6. Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.