|
#1
|
|||
|
|||
Консоль в форму
Помогите переделать в форму.
написал в консоли, но надо перенести на форму. Код:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var Sum,i,a:integer; s:string; function Even(K:integer):boolean; begin if K mod 2=0 then Even:=true else Even:=false; end; begin /////// основная программа ///////////// begin sum:=0; Writeln('vvedite 10 tselix chisel '); for i:=1 to 10 do begin read(a); if Even(a) then inc(sum); end; Writeln('Tsetnix chisel = ',Sum); repeat readln(s); if s = ' ' then begin end; until s = 'exit' end; end. Последний раз редактировалось Fairfox63, 18.06.2013 в 14:58. |
#2
|
||||
|
||||
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |