//Мне разрешили, не одна же Юля составляла этот список) Ньютон, Шиккард(первый калькулятор на десятичной системе счисления-16 век), Лейбинц(двоичная система счисления-17 век), Бэббидж(разработал проект универсальной вычислительной машины-19 век), Ада Лавлейс(первый программист-19 век), Алан Тьюринг( теория ИИ-20 век), Курт Гедель(разработал основы теоретической информатики-20 век), Цузе(создатель первого языка программирования высокого уровня-20 век) Винер(основоположник кибренетики-20 век), Джобс(пионер эры IT-технологий-21 век), Никлаус Вирт(главный разработчик языка Паскаль-наши дни), Гейтс(пионер эры IT-технологий-наши дни).
Традиционное решение: var n,d1,d2,d3,d4:integer; begin Write('Введите четырехзначное натуральное число: '); Readln(n); d1:=n div 1000; d4:=n mod 10; d3:=(n mod 100) div 10; d2:=(n mod 1000) div 100; n:=1000*d1+100*d3+10*d2+d4; Writeln('Результат: ',n) end.
Решение с использованием символьного представления числа: var s:string; begin Write('Введите четырехзначное натуральное число: '); Readln(s); Writeln('Результат: ',s[1]+s[3]+s[2]+s[4]) end.
Объяснение:
Выборка по всем записям:
Выбрать конкретные поля из таблиц, расположить их в требуемом порядке, задать сортировку по нескольким критериям.
Выборка с условием:
Для некоторых полей добавляется условие в виде некоторого критерия для выборки записей.
Запрос с параметрами:
Условие отбора указывается в запросе неявно и формируется в момент обращения к запросу.
Запрос с вычисляемыми полями:
В запросе формируются новые поля, не существующие ни в одной из таблиц. Значения этих полей вычисляются по формулам, описываемым в запросе.