В середовищі Lazarus елемент управління Мето є багаторядковим текстовим редактором (слугує для відображення на екрані результату — підсумкового тексту), а елемент Label (тип — String) призначено для виведення постійного тексту (мітки) на форму, елемент Edit (тип — String) є полем вводу — редагування рядка символів
begin for i := 1 to 5 do read(ar[i]); window.IsFixedSize := true; window.Init(0, 0, 800, 800, clDarkGray); window.CenterOnScreen; SetFontSize(32); for i := 1 to 5 do c := c + ar[i].ToString.Length; for i := 1 to 7 do writeln; write(' ':33 - c); for i := 1 to 5 do begin if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then begin SetFontColor(clred); write(ar[i]); end else if(ar[i] mod 10 = 0) then begin SetFontColor(clblue); write(ar[i]); end else if(ar[i] mod 2 <> 0) then begin SetFontColor(clyellow); write(ar[i]); end end; end.
В середовищі Lazarus елемент управління Мето є багаторядковим текстовим редактором (слугує для відображення на екрані результату — підсумкового тексту), а елемент Label (тип — String) призначено для виведення постійного тексту (мітки) на форму, елемент Edit (тип — String) є полем вводу — редагування рядка символів
Объяснение: