1) посчитать сумму всех нечетных чисел от 230 до 430 // PascalABC.NET 3.0, сборка 1088 var i,s:integer; begin i:=231; s:=0; repeat s:=s+i; i:=i+2 until i>400; Writeln('Сумма нечетных чисел на интервале [230;400]: ',s) end.
Результат выполнения программы: Сумма нечетных чисел на интервале [230;400]: 26775
2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать // PascalABC.NET 3.0, сборка 1088 var i:integer; begin i:=900; repeat Write('(',i:3,',',sqrt(i):9:5,') '); i:=i-7 until i<0; Writeln; end.
3) найти сумму чисел шестизначного числа // PascalABC.NET 3.0, сборка 1088 var n:longint; s:integer; begin Write('n='); Read(n); repeat s:=s + (n mod 10); n:=n div 10 until n=0; Writeln('Сумма цифр числа равна ',s) end.
Тестовое решение: n=472305 Сумма цифр числа равна 21
program mas_kol_otr_kol_p;
const
n=10;
var
i,s:integer;
a:array[1..n] of integer;
begin
randomize;
writeln('Введите массив 》');
for i:=1 to n do
begin
a[i]:=random(61)-30;
write(a[i]:3,' ');
end;
writeln;
writeln('Меняем отрицательные на противоположные... 》');
for i:=1 to n do
begin
if(a[i]<0) then
a[i]:=abs(a[i]);
write(a[i]:3,' ');
end;
writeln;
writeln('Удаляем третий элемент... 》');
for i:=1 to n-1 do
begin
if(i>2) then
a[i]:=a[i+1];
write(a[i]:3,' ');
end;
writeln;
writeln('Считаем сумму... 》');
s:=0;
for i:=1 to n-1 do
s:=s+a[i];
write(s);
end.