Консультация № 180776
15.11.2010, 23:19
0.00 руб.
0 1 1
Уважаемые эксперты.
Помоги те решеить,даже исправить,подкорректировать задачку на делфи.
вот условие.
Для целого числа к от 1 до 99 напечатать фразу "Мне к лет", учитывая при этом,что при некоторых значениях слово "лет" надо заменить на слово "год" или "года"

вот программа https://rfpro.ru/upload/3598

можено как то не писать
все это:
0:k:=1;
1:k:=2;
2:k:=3;
....
сделать проще,а то учительница прикапывается к этому.
спасибо заранее.

Обсуждение

давно
Академик
320937
2216
15.11.2010, 23:45
общий
это ответ
Здравствуйте, Остапенко Кирил!
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
k,k2,k1:integer;
s: string;
begin
k:= StrToInt(listbox1.Items[listbox1.itemIndex]);
k1:=k mod 10;
k2:=k div 10;
s:='Мне '+inttostr(k);

if ((k1=1)and (k2<>1)) then
s:= s+' год'
else if (k1 in [2..4]) and (k2<>1) then
s:= s+' года'
else
s:= s+' лет';
label2.Caption:=s;
end;

Удачи!
Форма ответа