Составьте программу для решения следующей задачи:
- ввести с клавиатуры три целых числа: х, y, z;
- вычислить сумму всех чисел S = x + y + z;
- вычислить сумму квадратов чисел Q = x2 + y2 + z2; (квадрат числа а – это произведение а*а)
- вычислить сумму парных произведений R = x*y + x*z + y*z;
- вывести полученные значения S, Q, R на экран

10 REM создание массива А для заполнения списком из 10 чисел 20 DIM A (1,10): 30 REM начало цикла для заполнения массива 40 FOR I=1 TO 10 50 REM формирование запроса на ввод I-го числа 60 PRINT “Введите”, I, “-ое число” 70 REM ввод I-го числа 80 INPUT J 90 REM присвоение I-му элементу массива значения числа 100 A(I)=J 110 NEXT I 120 REM цикл сортировки списка чисел по возрастанию 130 FOR I =1 TO 9 140 FOR J=I+1 TO 10 150 REM условие для упорядочения списка 160 IF A(I)>A(J) THEN b=A(I):A(I)=A(J):A(J)=b 170 NEXT J, I 180 REM цикл вывода упорядоченного списка на экран 190 FOR I=1 TO 10 200 PRINT А(I) 210 NEXT I Работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. Работает!

Иван: французский, китайский. Антон: немецкий, японский. Пётр: шведский, греческий. Поясняю на сколько это возможно. 2) Антон не знает шведский и французский. 3)Пётр (он самый высокий - пункт 1) не знает французский. Значит, французский - Иван. 4) Пётр не знает яп. и кит. 5) Антон не знает кит. и греч. 4),5) => китайский - Иван. С Иваном разобрались... 2),5) => Антон не знает греческий и шведский (фр. и кит. уже у Ивана). Значит, их знает Пётр. Антону, в таком случае, достаются немецкий и японский. Надеюсь, понятно.