Войти Регистрация Спроси ai-bota

Вывести сумму первых 25 натуральных чисел

Ответ:

ден1025

03.10.2020 12:41

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Print(Range(1,25).Sum)
end.

Результат:
325

0,0(0 оценок)

Ответ:

kostyatar2016

03.10.2020 12:41

PascalABC

var: k,s,i: integer;
begin
k:=1;
s:=0;
for i:=1 to 25 do
begin
s:=s+k;
k:=k+1;
end;
writeln(s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

простонастя4

05.04.2023 23:28

)) каковы будут значения переменных и сколько раз исполнится цикл? s: =0 for i: 1 to 15 do if i mod 2=1 then s: =s+1 end. (с полным решением, )...

artembryzgin

05.04.2023 23:28

Раздел, обязательный в программе: а) var б) type в)begin … end....

Light111111

23.09.2021 21:12

Паскаль абс найдите значение выражения (a div b+b)*mid c. переменные вводятся с клавиатуры...

minikisa2007

23.09.2021 21:12

Написать программу: вычислить сумму кубов всех 3-х значных нечетных чисел. qbasic....

tarasgorodchukowd1fp

23.09.2021 21:12

Начало цикла блок-схемы — это… а) овал б) квадрат в) шестигранник алфавит турбо паскаль представлен а) латинскими буквами, дробными числами, специальными символами б) буквами,...

Daniilgrishin333333

16.04.2022 13:03

Расположить в правильном порядке строки программы,вычисляющей периметр т площадь параллелограмма. 1.s: =a*h; 2.end. 3.program pr; 4.p: =2*(a+b); 5.var a,b,h,p,s: integer; 6.readln;...

Кристина1902

26.09.2021 02:13

Красный & ¬ синий. Изобразите кругами Эйлера....

sashamay2016

18.09.2021 09:40

Нужно решить языком С++ а) обчислити довжини висот трикутника за заданими з клавіатури довжинами його сторін; б) визначити, чи вірно, що при діленні не від’ємного цілого числа...

Елена09111

08.03.2020 12:14

Нужна с информатикой, обязательно с объяснением. 1) Заполнить массив A из 10 элементов типа integer, A[i] 100. Найти сумму нечетных элементов массива. 2) Заполнить массив из...

kristina13131

15.09.2020 23:12

СТЕПЕНЬ (число;степень) - а) вычисляет сумму всех чисел, указанных в качестве аргументов. в) заданное число возводится в указанную степень. @[email protected]...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку