Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
<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
Const<span> N </span>= 10;
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>read(a[i]);
<span> </span>for<span> i</span>:=1 to<span> N </span>div 2 do begin
<span> b </span>:=<span> a</span>[i];
a[i] :=<span> a</span>[N-i+1];
a[N-i+1] :=<span> b</span>;
<span> </span>end;
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>write(a[i],' ');
<span> </span>writeln;
end<span>.</span>
1. должно выполняться условие - все данные были одного типа (либо целочисленные, либо вещественные, либо строковые). тогда эти данные можно объединить в массив.
2. a[4]=-12 где
a - имя массива
[4] - элемент массива или индекс( в данном случае идекс=4)
-12 - присваиваемое значение массива или значение элемента.
3. одномерный масмив имеет вид последовательности только в одной плоскости 1,2,3,-12 и т д. для его объявления используется только один диапазон. двухмерный массив испоьзует два дипазона по вертикали и горизонтали. соответсвенно при объявлении массива указывются два диапазона.
у него вид как у квадратной матрицы...
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
