Школа - Ш 1. А ( единицу написать красным и сделать курсивом)
учитель- нарисовать букву БОЛЬШУЮ БУКВУ Ч ,в ней маленькую букву У, потом буквы И Т и нарисовать ель
компьютер -
Var
m, n, p: integer;
begin
Write('Введите свой номер в группе: ');
Readln(n);
n := n * 12;
p := 1;
repeat
m := n mod 10;
p := p * m;
n := n div 10
until n = 0;
Writeln('Результат ', p)
end.
Тестовое решение:
Введите свой номер в группе: 13
Результат 30
При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит, а при использовании 16 цветов - log(2)16 = 4 бита.
15 Кбайт = 15*1024 байт = 15*1024*8 бит
Пусть K - количество пикселей изображения, тогда
8*K-4*K = 15*1024*8, K = 1024*30
Размер исходного файла:
1024*30*8 бит = 1024*30*8/8 байт = 1024*30 байт = 1024*30/1024 Кбайт = 30 Кбайт
Sub abc()
Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer
n = 15
ReDim a(1 To n) As Integer
For i = 1 To n
a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")
Next i
aMax = a(1)
aMin = a(1)
For i = 2 To n
If a(i) > aMax Then aMax = a(i)
If a(i) < aMin Then aMin = a(i)
Next i
MsgBox "Сумма max+min =" & Str(aMax + aMin) & _
" их разность =" & Str(aMax - aMin)
End Sub