EXE-бұл DOS және Windows операциялық жүйелеріндегі бағдарламалар үшін кеңейтім. Exe пішімі қосымшаны орнатуға арналған барлық деректерді қамтитын орындалатын файлдар тобына жатады.
DIM A(6) RANDOMIZE TIMER FOR I = 1 TO 6 A(I) = INT(RND * 20) - 10 IF A(I) > 0 THEN S = S + 1 PRINT A(I); " "; NEXT I PRINT PRINT "S="; S
Новый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(-10,10); if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Старый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(20)-10; if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Var i,n,k,max:integer; s:string; a:array[1..12]of integer; naz:array[1..12]of string; begin naz[1]:=('январь'); naz[2]:=('февраль'); naz[3]:=('март'); naz[4]:=('апрель'); naz[5]:=('май'); naz[6]:=('июнь'); naz[7]:=('июль'); naz[8]:=('август'); naz[9]:=('сентябрь'); naz[10]:=('октябрь'); naz[11]:=('ноябрь'); naz[12]:=('декабрь'); write('Введите число N: '); readln(n); for i:=1 to n do begin write('Введите дату: '); readln(s); s:=copy(s,4,2); k:=StrToInt(s); a[k]:=a[k]+1; end; for i:=1 to 12 do begin if a[i]>=max then begin max:=a[i]; n:=i; end; end; writeln('Месяц с наибольшим количеством: ',naz[n]); end.
EXE-бұл DOS және Windows операциялық жүйелеріндегі бағдарламалар үшін кеңейтім. Exe пішімі қосымшаны орнатуға арналған барлық деректерді қамтитын орындалатын файлдар тобына жатады.