Var t:integer;var a,b,s:real;beginprintln('Введите количество тетрадей и обложек');readln(t);println('Введите цену тетрадей');readln(a);println('Введите цену обложек');readln(b);
s:=t*a+t*b;print(s);end.
В русском варианте диалога найти и заменить это выглядит так:
Найти: берёза
Заменить на: стол
То есть, будет найдено слово берёза, и заменено на слово стол.
Правильный ответ №3 (слово «берёза» заменится на слово «стол»).
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
Во вложении решение. Триады-это разбиение по 3 цифры, тетрады - это по 4 цифры.
При переводе из десятичной сс в двоичную с помощью таблицы пишешь 1, если число нечетное (т.к. нечетное число на 2 без остатка не делится, и в остатке всегда 1. Этот остаток ты и пишешь, где нечетное). А чётное делится на 2 без остатка, поэтому там, где число чётное, пишется ноль.
Var s1,s2 : String;
Begin
Readln(s1);
Readln(s2);
While (Length(s1)>0) and (Length(s2)>0) do
Begin
Delete(s1,1,1);
Delete(s2,1,1);
end;
Writeln(s1+s2);
end.
