Qo’shish amali
var a,b:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
Label1.Caption:='Yigindi '+inttostr(a+b);
Toq sonlarni toppish
var a,i:integer;
begin
a:=strtoint(edit1.Text);
for i:=1 to a do begin
if odd(i) then
memo1.Lines.Add(inttostr(i));
end;
soat
Label1.Caption:=timetostr(now);
form1.Caption:=timetostr(now)+' Rustam Murodov';
Do'stlaringiz bilan baham: |