Program sto;Vara,b:integer;BeginReadln(a);b:= 100 - a; //Вычисляем остаток которы нужно прибавить к числу, и записываем его в переменную b;Writeln('Если к вашему числу прибавить: ',b,', то в результате будет 100'); //Выводим ответ пользователю;End.
модель типо модели глобуса или модели (девушки)
Решение с помощью таблицы приведено во вложении.
Числами обозначены клетки, состояние которых определено в высказывании под соответствующим числу номером. Красный фон - отрицательный результат, зеленый - положительный.
Полезно нарисовать пустую таблицу и заполнять её, ставя знак "минус" (или записывая "нет") вместо красного фона и знак "плюс" ("да") вместо зеленого.
Delete(краткая del),,,,,,
Данные записаны в одной строке
координата одномерная А[i]