Відповідь: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.
Пояснення:
Поделитесь своими знаниями, ответьте на вопрос:
Начав тренировки, спортсмен в первый день пробежал 10 км. каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. какой суммарный путь пробежит спортсмен за 7 дней? составьте программу и блок схему.
Компьютерные технологии или Информационные технологии (ИТ) — это обобщённое название технологий, отвечающих за хранение, передачу, обработку, защиту и воспроизведение информации с использованием компьютеров. Невозможно представить себе современные области производства, науки, культуры, спорта и экономики, где не применялись бы компьютеры. Компьютеры помогают человеку в работе, развлечении, образовании и научных исследованиях.
Компьютерные технологии — это передний край науки XXI века.
Объяснение: