Кто может разобрать ?? 70 Баллов)Program n1;var i,n,sum:

Кто может разобрать ?? 70 Баллов)
Program n1;
var i,n,sum: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+2*i;
writeln(sum);
end.
Написать программку, которая вычисляет сумму первых n целых положительных четных чисел. Количество суммируемых чисел обязано вводится во время работы программы.

Задать свой вопрос
Miha Mereshkin
Разобрать?
Степа
да,каждую строку
2 ответа

Program n1;  

//Заглавие программки

var i,n,sum: integer;  

//Объявление переменных

begin  

//Начало

readln(n);  

//Ввод n (количество чисел) и и переход на следущую строчку

sum:=0;  

//Присваивание переменной sum знаяения 0 (вначале сумма одинакова 0)

for i:=1 to n do sum:=sum+2*i;  

//В цикле от 1 до n к переменной  

//sum добавляем 2*i, т.е. 1*2+2*2+3*2+..n*2=2+4+6+..+2n;

writeln(sum);

//Ввод sum (cумма первых n целых положительных четных чисел)  

//и и переход на следущую строчку

end.

//Конец

Program n1;// программка на паскале n1

var i,n,sum: integer;// объявление целых переменных i,n и sum

begin //начало программки

readln(n); //ввод n

sum:=0;/ /присвоение переменной sum нач. значения 0

for i:=1 to n do sum:=sum+2*i;// цикл для вычисления суммы

writeln(sum);// печать суммы

end. //конец программки

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт