begin
write('Введите число A: ');
readln(A);
write('Введите число B: ');
readln(B);
v := A; { <-- Значение А записываем в v }
A := B; { <-- Значение В записываем в А }
B := v; { <-- Значение А записываем в В, поскольку v = A }
writeln('Результат:');
writeln(' A = ', A, ', B = ', B);
readln
end.
- Do you know any interesting facts about the USA? (Знаете ли вы какие-нибудь интересные факты о США?)
- What is the population of the USA? (Какое население США?)
- What are the most numerous peoples of the USA? (Каковы самые многочисленные народы США?)
- What is the biggest city of the USA? (Каков самый большой город США?)
- How do you compare life in that city and in Washington? (Как вы сравниваете жизнь в этом городе и в Вашингтоне?)
- What are the most interesting sights of the USA? (Каковы самые интересные достопримечательности США?)
- And what about Washington? (А как насчет Вашингтона?)
- How many classes do you have at school? (Сколько занятий у вас в школе?)
- Do you have any clubs? (У вас есть клубы?)
В XVII в. за контроль над Балтийским морем боролись Швеция, Россия Речь Посполитая и Дания. К началу XVIII в. шведы контролировали практически все побережье Балтики. В России не забывали о необходимости возвращения утраченных ранее выходов в Балтийское море. Саксонский курфюрст Август II стремился стать королем Речи Посполитой и получить в управление Эстляндию и Лифляндию. Интересы Дании были сосредоточены на Голштейн-Готторпском герцогстве, которое контролировала Швеция. В сентябре 1699 г. был заключен договор между Саксонией и Данией, а в ноябре того же года – между Саксонией и Россией. Однако заключение этих договоренностей и образование Северного союза не означали прочного военного союза между ними. Швеция также предприняла шаги по поиску союзников в возможной войне, заключив союзные договоры с Англией и Голландией. В поддержку её сильной сухопутной армии выступил англо-голландский флот, который был в то время самым сильным в мире.
A, B, v: real;
begin
write('Введите число A: ');
readln(A);
write('Введите число B: ');
readln(B);
v := A; { <-- Значение А записываем в v }
A := B; { <-- Значение В записываем в А }
B := v; { <-- Значение А записываем в В, поскольку v = A }
writeln('Результат:');
writeln(' A = ', A, ', B = ', B);
readln
end.