var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
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
Задание 2
Сначала переводим число в 10 систему счисления (фото 1 под 1)) т.к. получается очень большая дробная часть число полностью не выписывала (красные цифры это значение букв на которое надо умножать) сможете выписать весь ответ с фото 4
Далее уже получившееся число переводим из 10 системы счисления в 7 отдельно целую и дробную части (фото 1 под2)) дробную часть написала частично расчеты можете продолжить самостоятельно (полный ответ на рисунке 3)
аналогично с переводом в 17 и 22 системы
Задание 3
1-10)0 1 2 3 4 5 6 7 8 9 A
11-20) B C D E F G H I J K
21-30) 10 11 12 13 14 15 16 17 18 19
31-40) 1A 1B 1C 1D 1E 1F 1G 1H 1I 1J
41-50) 1K 20 21 22 23 24 25 26 27 28
51-60) 29 2A 2B 2C 2D 2E 2F 2G 2H 2I
61-70) 2J 2K 30 31 32 33 34 35 36 37
var
a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read (a[i]);
for i:=1 to 10 do
if i mod 4 =0
then write ('нет',' ')
else
if i mod 2=0
then write ('да', ' ')
else write (a[i],' ');
end.
вот вставьте, если не работет напишите