<em>1) посчитать сумму всех нечетных чисел от 230 до 430</em>
// 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.
<em><u>Результат выполнения программы:</u></em>
Сумма нечетных чисел на интервале [230;400]: 26775
<em>2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать</em>
// 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.
<u><em>Результат выполнения программы:</em></u>
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95, 9.74679) ( 88, 9.38083) ( 81, 9.00000)
( 74, 8.60233) ( 67, 8.18535) ( 60, 7.74597) ( 53, 7.28011)
( 46, 6.78233) ( 39, 6.24500) ( 32, 5.65685) ( 25, 5.00000)
( 18, 4.24264) ( 11, 3.31662) ( 4, 2.00000)
<span><em>3) найти сумму чисел шестизначного числа</em>
</span>// 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.
<u><em>Тестовое решение:</em></u>
n=472305
Сумма цифр числа равна 21
1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.
Define ("pi",3.14);
По формуле через радиусы
$R = 10;
$rr = 4;
$RES = pi*(sqrt($R)-sqrt($rr));
echo "$RES";
По формуле через диаметры:
$D = 12;
$dd = 3;
$RES = ((pi/4)*(sqrt($D)-sqrt($dd)));
echo "$RES";
Уголки:
использовать Чертежник
алг
нач
сместиться на вектор (1,3)
нц 5 раз
Угол
кц
кон
алг Угол
нач
опустить перо
сместиться на вектор (3,0)
сместиться на вектор (0,-3)
поднять перо
сместиться на вектор (-2,4)
кон
Квадраты:
использовать Чертежник
алг
нач
сместиться на вектор (1,4)
нц 3 раз
Квадрат
кц
сместиться на вектор (-10,-2)
нц 2 раз
Квадрат
кц
кон
алг Квадрат
нач
опустить перо
сместиться на вектор (0,3)
сместиться на вектор (3,0)
сместиться на вектор (0,-3)
сместиться на вектор (-3,0)
поднять перо
сместиться на вектор (4,0)
кон
Ромбы:
использовать Чертежник
алг
нач
сместиться на вектор (4,5)
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (1,-1)
сместиться на вектор (-1,-1)
сместиться на вектор (-1,1)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (-2,-2)
сместиться на вектор (-2,2)
сместиться на вектор (2,2)
сместиться на вектор (2,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (-3,-3)
сместиться на вектор (-3,3)
сместиться на вектор (3,3)
сместиться на вектор (3,-3)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (-4,-4)
сместиться на вектор (-4,4)
сместиться на вектор (4,4)
сместиться на вектор (4,-4)
кон