Язык PascalСоставьте программу сортировки по возрастанию значений трех переменных…

Question

38

Язык PascalСоставьте программу сортировки по возрастанию значений трех переменных A, B, C

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

agrail · Accepted Answer

39

agrail

04 февраля 2023

VarA, B, C, p: integer; beginwrite ('A, B, C: '); readln (A, B, C); if A > B then begin p: =A; A: =B; B: =p; end; if B > C then begin p: =B; B: =C; C: =P; end; writeln (A: 3, B: 3, C: 3); readln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: