Pascal ABCПроцедуры и функцииРазработать программу, решающую пример. сумму кубов чисел a, b, c, если a=9.8 arctg^2 |e^2x^3-0.25|;b=lg^3(5.3x);c=cos^3(9|x-y|)/5*x*yИсходные данные, которые нужно ввести через клавиатуру: x=1.17 y=28ответ должен получится: 12062

1 - сумма двух чисел, 8 - сумма одного из слагаемых первого числа, а также нового, третьего числа. Так как 1 - сумма двух натуральных чисел, легко сделать вывод, что это числа 1 и 0. Значит 8 - сумма чисел либо 8 и 0, либо 7 и 1. Комбинируем числа из 0, 7 и 1, так как это число точно будет меньше, чем состоящее из 1, 0 и 8. Пусть 1 и 0 - первое и второе числа, тогда... ошибка. 8 - сумма 2-го и 3-го чисел. А 0 не может стоять в разряде сотен. Значит комбинируем из 0, 1 и 8: 1 - первое, 0 - второе и 8 - третье; 1+0=1, 0+8=0, вместе 81.
ответ: 108.

Алг
нач
цел Кол_во=256, логтаб Матрица[1:Кол_во] цел Число,j 

Матрица[1]:=нет
нц для Число от 2 до Кол_во 
Матрица[Число]:=да
кц
нц для Число от 2 до div(Кол_во,2)
нц для j от 2 до div(Кол_во,Число)
Матрица[Число*j]:=нет 
кц
кц
нц для Число от 1 до Кол_во
если Матрица[Число]=да то
вывод Число," "
все
кц
кон 

Результат выполнения программы: 
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251