Delphi dasturlash tilida kiritilgan sonni juf yoki toq ekanligini topuvchi dastur tuzing.

Ответ

Bitta edit, 2ta label va 1ta button o‟rnatib, buttonning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
var a:integer; begin
a:=strtoint(edit1.Text); if a mod 2=0 then
label2.Caption:='Juft‟ else label2.Caption:='Toq‟; end;

Другие задачи с этого варианта

1 2 3

Книга: Informatika fanidan imtixon savollariga javoblar 10 sinf
Билет/вопрос: №21

"Test-Uz.Ru" © 2014-2024. Информационный портал для школьников, абитуриентов, студентов и учителей

О сайте | Обратная связь