Сапрограмувати кнопку ,,Підрахувати" var
Form1: TForm1;
a: array [0..14] of Integer;
k,num,i:integer;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TOhject);
begin
num:=StrToln(Edit1.Text);
k=0;
for i:=0 to 14 do
begin
a[i]:=StrTolnt(Memo1.Lines[1];
if a[i]=num then k:=k+1;
end;
label2.Caption:=IntToStr(k)+' повторень';
end;
end.

natusy2411    1   11.04.2022 01:51    0