Например, так: по три напротив каждой стороны и два по противоположным углам.
Ну изи же
1)1
2121
3)YES
4)67
5)Не видно конец кода
напиши про разные клавиатуры для компа!!) в интернете оч много интересных фотографий. клавы и прозрачные, и в форме скелета, и гнущиеся, и всякоразные в общем) материала предостаточно, дерзай
Var
A,B,C,M:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B > C then M:=A+B
else M:=C;
if A+C > B then WriteLn('max(A+B,C)-min(A+C,B) = ',M-B)
else WriteLn('max(A+B,C)-min(A+C,B) = ',M-A+C)
End.
{ЗадачаСоздайте целочисленный массив из 20 элементов с помощью генератора случайных чисел с элементами от 0 до 15 и выведите его на экран. Подсчитайте и выведите на экран количество не четных элементов}constb = 20;vara : array [1..b] of integer;i: integer;
beginrandomize; //подключаем генератор случайных чисел
for i:=1 to b do a[i]:=random(15); //генерируем массив из случайных чисел writeln('вывод массива') ;for i:=1 to b do write(a[i],' '); //выводим массивwriteln;
writeln('вывод нечетных чисел из массива'); for i:=1 to b do if (a[i] mod 2 =1) then write(a[i], ' ')//выводим нечетные числ из массиваend.