Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>
Var a,b,c: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b)
End.
Var a,b,c,d: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d)
End.
(PascalABCNET)
Для хранения одного из 32 символов требуется log(2)32 = 5 бит (2^5 = 32).
Объем переданного сообщения = 20*5*60 = 6000 байт = 6000*8 бит.
Количество переданных символов = 6000*8 / 5 = 9600
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