10.03.2009, 03:27
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Цитата:
|
Сообщение от serj71298
Код:
ShowMessage('произведено ' +IntToStr(zam) +' замен');
if zam =(n-1)*(m-1) then
ShowMessage('заменены все элементы')
|
Код:
if zam =(n-1)*(m-1)
then ShowMessage('заменены все элементы')
else ShowMessage('произведено ' +IntToStr(zam) +' замен'); |