Інформатика 8 клас (pascal abc) 6. Створіть проект - вопрос №1458420886 от nakjuo 17.03.2021 05:51

Question

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

nakjuo · 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 більше від попереднього.