Program A_1; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i; until i=n; writeln('Сумма чисел от 1 до ',n,' равна ',sum); end.
Program B_2; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i*i; until i=n; writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum); end.
Program V_3; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; if (i mod 2 = 0) then sum:=sum+i; until i=n; writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end.
Program G_4; uses crt; Var i,n,sum: integer; begin i:=9; sum:=0; repeat i:=i+1; sum:=sum+i; until i=99; writeln('Сумма всех двузначных чисел равна ',sum); end.
Может ли массив содержать целые и вещественные значения? -Да может,если массив имеет вещественный тип Для чего необходимо описание массива? -Чтобы создать массив с указанным количеством элементов и типом их значений Что вы можете сказать о массиве, сформированном следующим образом: а)Тут мы заполняем массив a с индексами от 1 до 10 случайными целыми числами от -50 до 50 б)Тут мы заполняем массив a с индексами от 1 до 20, присваивая каждому элементу массива значение его индекса в)Тут мы заполняем массив a с индексами от 1 до 5, присваивая каждому элементу массива удвоенное значение его индекса минус 1
uses crt;
Var
i,n,sum: integer;
begin
write('Введите N ');
readln(n);
i:=0;
sum:=0;
repeat
i:=i+1;
sum:=sum+i;
until i=n;
writeln('Сумма чисел от 1 до ',n,' равна ',sum);
end.
Program B_2;
uses crt;
Var
i,n,sum: integer;
begin
write('Введите N ');
readln(n);
i:=0;
sum:=0;
repeat
i:=i+1;
sum:=sum+i*i;
until i=n;
writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum);
end.
Program V_3;
uses crt;
Var
i,n,sum: integer;
begin
write('Введите N ');
readln(n);
i:=0;
sum:=0;
repeat
i:=i+1;
if (i mod 2 = 0) then sum:=sum+i;
until i=n;
writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum);
end.
Program G_4;
uses crt;
Var
i,n,sum: integer;
begin
i:=9;
sum:=0;
repeat
i:=i+1;
sum:=sum+i;
until i=99;
writeln('Сумма всех двузначных чисел равна ',sum);
end.