Program variant;
var
x,a,d:real;
i:integer;
begin
Write('введите x='); Read(x);
for i:=1 to 7 do begin
a:=0.14+0.22*(i-1);
d:=(0.15*x-a)/ln(a*a-x*x);
Writeln(a:4:2,d:16:9);
a:=a+0.22
end
end.
<u>Пример</u>
введите x=0.027
0.14 0.034243220
0.36 0.173723688
0.58 0.527608521
0.80 1.778950153
1.02 -26.114068556
1.24 -2.875984233
1.46 -1.924508518
8 килобайт-8000 байт, 1 мегабайт- 1000000 байт, дальше там не получится
Program primer;
var y, x: real;
begin
x:=1;
repeat
y:=x*x-16*x+32;
write(y)
x:=x+0.25;
until x < 10;
readln;
end.
Const
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(20)+10;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:3)
end;
Writeln
end
end.
Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20
Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>