< >

for 11 pascal. Программа паскаль​

Ответы

Ответ дал: disenyashkov
1


program For11;

var

N, Rez,i :Integer;

begin

Write('Введите N: ');

Readln(N);

rez:=0;

For i:=0 to N do Rez:=Rez+sqr(N+i);

Writeln(Rez);

end.
Похожие вопросы
Математика
1 год назад
3. Реши 2 способами: В одной книге 36 страниц, а в другой 48. За сколько дней можно прочитать, обе книги, если читать каждый день по 12 страниц. 36: 12* (88:22) 56:14*(66:33) 90:18*(66:22) 18*100:10
Английский язык
1 год назад
Пожалуйста помогите срочно! Даю 100 баллов! ​
Химия
1 год назад
ПОМОГИТЕ РЕШИТЬ ХИМИЮ ПОЖАЛУЙСТА НА ЛИСТОЧКУ
Алгебра
1 год назад
У двох вагонах метро разом 48 пасажирів причому в другому на 6 менше ніж у першому. Скільки пасажирів у кожному вагоні?
Химия
2 года назад
який елемент є найактивнішим металом​
Қазақ тiлi
2 года назад
отбасы кундылыктарына 3 сурак?срочно помогите!​
Алгебра
8 лет назад
решите пожалуйста ребята
Физика
8 лет назад
На какую наибольшую высоту получится поднять тело массой 40 кг затратив 1 кДж энергии?