Var x, y, z: integer; begin Write('Введите x: '); Read(x); Write('Введите y: '); Read(y); if x <= y then z := x + y else z := 1 - x + y; Write(z); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
