Помогите: Составьте слова из букв к,е,н,г,ш,а,п,р,о,м,и,т
irichka7575
Шар,шаг,ритм,рог,ринг,тигр,рот,ром,ген,мера,кино,мир,пот,море,ком,кит,тик,ток,шпат,морг,тир
Создаешь большой прямоугольник (нужных размеров) через кнопку на верхней панели,делаешь серую заливку,сверху таким же способом делаешь 3 круга (там сначала создается квадрат,а ты в властивостях форми выбираешь circle)и делаешь заливку разных цветов.
7 бит, т.к. каждая буква и пробел считается как: 1 бит.
1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
FOR J = 1 TO 5
A(I, J) = INT(RND * 10)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
PRINT , S
<span>NEXT I
Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
FOR J = 1 TO 3
A(I, J) = INT(RND * 5)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
P = P * S
PRINT
NEXT I
PRINT
<span>PRINT "P="; P</span>
2
DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
A(I) = INT(RND * 20) - 10
PRINT A(I); " ";
IF A(I) > O THEN
S = S + A(I)
P = P * A(I)
N = N + 1
END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N
</span>
Uses crt;
<span>var a,b,rez:real; </span>
<span>begin </span>
<span>clrscr; </span>
<span>readln(a,b); </span>
<span>Writeln('Summa - ',a*a+b*b:0:2); </span>
<span>writeln('Raznost - ',a*a-b*b:0:2); </span>
<span>writeln('Proizv - ',a*a*b*b:0:2); </span>
<span>writeln('Chastnoe - ',a*a/(b*b):0:2); </span>
<span>readkey; </span>
<span>end.</span>
