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

Інформатика 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*
Комментарий*

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

kuharhuks
ipaskarovanv6
yanva
iv1as2
fednik3337923
Нина1449
vkaloshin
sttig
delfa-r6289
sashulyah3183
kadrevproduction
MaratФам
sychevao19975
Яковчук1911
fox-cab3444