Pascal
Особенностями языка являются строгая типизация и наличие средств структурного (процедурного) программирования. Паскаль был одним из первых таких языков. По мнению Вирта, язык должен способствовать дисциплинированному программированию, поэтому, наряду со строгой типизацией, в Паскале сведены к минимуму возможные синтаксические неоднозначности, а сам синтаксис автор постарался сделать интуитивно понятным даже при первом знакомстве с языком.
Тем не менее, первоначально язык имел ряд ограничений: невозможность передачи функциям массивов переменной длины, отсутствие нормальных средств работы с динамической памятью, ограниченная библиотека ввода-вывода, отсутствие средств для подключения функций, написанных на других языках, отсутствие средств раздельной компиляции и т. п. Подробный разбор недостатков языка Паскаль того времени был выполнен Брайаном Керниганом в статье «Почему Паскаль не является моим любимым языком программирования»[10](эта статья вышла в начале 1980-х, когда уже существовал язык Модула-2, потомок Паскаля, избавленный от большинства его пороков, а также более развитые диалекты Паскаля). Некоторые недостатки Паскаля были исправлены в ISO-стандарте 1982 года, в частности, в языке появились открытые массивы, давшие возможность использовать одни и те же процедуры для обработки одномерных массивов различных размеров.
Однако многие недостатки языка не проявляются или даже становятся достоинствами при обучении программированию. Кроме того, по сравнению с основным языком программирования в академической среде 1970-х (которым был Фортран, обладавший гораздо более существенными недостатками), Паскаль представлял собой значительный шаг вперёд. К 1980-м годам Паскаль стал основой для многочисленных учебных программ, в отдельных случаях на его основе были созданы специализированные обучающие языки программирования, так, в начале 1980-х годов в СССР для обучения школьников основам информатики и вычислительной техники Андрей Ершов разработал алголо-паскалеподобный «учебный алгоритмический язык».
Наиболее известной реализацией Паскаля, обеспечившей широкое распространение и развитие языка, является Turbo Pascal фирмы Borland, выросшая затем в объектный Паскаль для DOS (начиная с версии 5.5) и Windows и далее в Delphi, в которой были внедрены значительные расширения языка.
Обозначим цифры, которыми записаны числа P, Q, R и T a, b, c.
P(x) = a*x+b
Q(y) = c*y+c
R(x) = b*x+a
T(y) = a*y+b
a*x+b+c*y+c = 21
b*x+a-a*y-b = 2
Пусть a=1, b=1, c=1
x+1+y+1 = 21, x+y = 19
x+1-y-1 = 2, x-y = 2
x = y+2, y+2+y = 19, 2*y = 17 - не подходит
Пусть a=2, b=1, c=1
2*x+1+y+1 = 21, 2*x+y = 19
x+2-2*y-1 = 2, x-2*y = 1
x = 2*y+1, 2*(2*y+1)+y = 19, 5*y = 17 - не подходит
Пусть a=1, b=2, c=1
x+2+y+1 = 21, x+y = 18
2*x+1-y-2 = 2, 2*x-y = 3
y = 2*x-3, x+2*x-3 = 18, 3*x = 21
x = 7, y = 11
P(7) = 12(7) = 7+2 = 9(10)
Q(11) = 1*11+1 = 12(10)
9(10)+12(10) = 21(10)
R(7) = 2*7+1 = 15(10)
T(11) = 1*11+2 = 13(10)
15(10)-13(10) = 2(10)
Ответ: x=7, y=11
А)))))))))))))))))))))))))))))))))))))))))))))))))))))
Var N:longint;
beginwriteln('Введите N');
readln(N);
writeln('N= ',N);
while n>=100 do begin
N:=N div 10;
end;
write(' Число = ',N);
end.