Var a, b : integer; Begin Write('Введите число а: '); Readln(a); Write('Введите число b: '); Readln(b); If a < b then begin A := 0; B := a * b; Write('a = ', a, 'b = ', b); End Else Begin B := 0; A := a * b; Write('a = ', a, 'b = ', b); End; End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
