С
такое сокращение
здесь должы быть символы
1)
const n=<u>?</u>; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
s:=0;
k:=0;
for i:=1 to n do
begin
s:=s+a[i];
k:=k+1;
end;
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
readln;
End.
2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if (i mod 2)=0 then
if a[i]>max then
max:=a[i];
for i:=1 to n do
if (i mod 2)<>0 then
if a[i]<min then
min:=a[i];
writeln('max=',max);
writeln('min=',min);
readln;
End.
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if (a+b+c) mod a=0 then writeln('Yes') else writeln('No');
end.
1. Строка получается слишком длиной, поэтому разбиваем ее на две части
Sub Z1()
Dim n As Integer
Dim i As Integer
Dim s1 As String
Dim s2 As String
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
If Len(s1) < 1024 Then
s1 = s1 & i & " "
Else
s2 = s2 & i & " "
End If
End If
Next i
MsgBox (s1)
If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)
MsgBox ("Их количетво: " & n)
<span>End Sub
1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Integer
Dim i As Integer
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
Cells(n, 1) = i
End If
Next i
MsgBox ("Их количество: " & n)
<span>End Sub</span>
2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
</span>p = 1
For i = 1 To k
p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub
Var
x,y:real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
if x<=-7 then y:=25
else
if x<=5 then y:=17*x-1
else y:=sqr(x);
Writeln('Значение функции равно ',y:0:4)
end.
Тестовое решение:
Введите значение аргумента x: 3.78
Значение функции равно 63.2600