Інформатика 8 клас (pascal abc) 6. Створіть проект - вопрос №8614583874 от Dimka3113 11.10.2021 10:13

Question

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

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