Шавкат кызы
?>

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

Информатика

Ответы

Маргарита1091

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 більше від попереднього.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Диана820
Vova220
yocrew13
Шапкина1531
Шавкат кызы
ksen1280
Сергеевна-С.А.1549
Nikolai710
Stanislavovna1237
михаил
r682dm2011
sveta1864
Lenuschakova1982316
format-l3364
Иванов