Информатика: Поменять местами ячейки. пример а=3,b=5= a=5,b=3.паскаль

Ksenia20066kislova

04.03.2023 18:40

Информатика

Есть ответ 👍

Поменять местами ячейки. пример а=3,b=5=> a=5,b=3.паскаль

135

176

Посмотреть ответы 3

Ответы на вопрос:

clon4

Информатика

4,7(100 оценок)

1. var a,b,c: integer; begin a: =3; b: =5; writeln('a = ',a,' b = ',b); c: =a; a: =b; b: =c; writeln('a = ',a,' b = ',b); end. результат: a = 3 b = 5 a = 5 b = 3 2. var a,b: integer; begin a: =3; b: =5; writeln('a = ',a,' b = ',b); a: =a+b; b: =a-b; a: =a-b; writeln('a = ',a,' b = ',b); end. результат: a = 3 b = 5 a = 5 b = 3

алина3687

Информатика

4,5(22 оценок)

Существуют различные алгоритмы обмена значениями между двумя ячейками a и b. 1. самый простой - с использованием промежуточной ячейки var a,b,t: integer; begin a: =10; b: =20; writeln(a,' ',b); t: =a; a: =b; b: =t; writeln(a,' ',b) end. 2. обмен без использования дополнительной памяти при сложения и вычитания var a,b: integer; begin a: =10; b: =20; writeln(a,' ',b); b: =a+b; a: =b-a; b: =b-a; writeln(a,' ',b) end. 3. обмен без использования дополнительной памяти при логической операции "исключающее или" var a,b: integer; begin a: =10; b: =20; writeln(a,' ',b); a: =a xor b; b: =a xor b; a: =a xor b; writeln(a,' ',b) end. язык pascalabc.net дополнительно предлагает простые способы обмена. 4. обмен при процедуры swap var a,b: integer; begin a: =10; b: =20; writeln(a,' ',b); swap(a,b); writeln(a,' ',b) end. 5. обмен на основе кортежного присваивания var a,b: integer; begin a: =10; b: =20; writeln(a,' ',b); (a,b): =(b,a); writeln(a,' ',b) end.