Регистрация
ксения1291
21.05.2021 09:36
Информатика
Есть ответ 👍

Кто может разобрать ? ? 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 целых положительных четных чисел. количество суммируемых чисел должно вводится во время работы программы.

172
486
Посмотреть ответы 4

Ответы на вопрос:

koooool
koooool
4,7(44 оценок)

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.

//конец

Tan13Nanika
Tan13Nanika
4,4(49 оценок)

1)21,9+6+2,1=30(кг)-всего в первом сплаве

2)2,1: 30*100%=7%-магния в первом сплаве

3)22+12+2=36(кг)-всего во втором сплаве

4)2: 36*100%=5,56%-магния во втором сплаве

во втором сплаве процентное содержание магния меньше примерно на 1,44%. (7%-5,56%-1,44%)

rje87391
rje87391
4,5(87 оценок)

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. //конец программы

ева520
ева520
4,6(37 оценок)

for i:=1 to n do

a[i]:=random(10)+1;

for i:=1 to n do

if not odd(a[i]) then

 a[i]:=a[i]+1;

Объяснение:

ты это имеешь в виду?

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