program n_1; type nazw = array[0..9] of String[15]; const ed : nazw = ('ноль','один','два','три','четыре','пять','шесть','семь','восемь','девять'); des: nazw = ('','десять','двадцать','тридцать','сорок','пятьдесят', 'шестьдесят','семьдесят','восемьдесят','девяносто'); sot: nazw = ('','сто','двести','тристо','четыресто','пятьсот','шестьсот','семьсот','восемьсот','девятьсот'); dd : nazw = ('','одинадцать','двенадцать','тринадцать','четырнадцать','пятнадцать', 'шестнадцать','семнадцать','восемьнадцать','девятнадцать'); var s,d,e,x : Integer; st : String; Begin Write('Введите число [0..1000] :'); Readln(x); if x=1000 then st:='тысяча' else begin s:= x div 100; x:=x mod 100; st:=sot[s]; d:= x div 10; e:=x mod 10; if (d=1) and (e<>0) then st:=st+dd[e] else st:=st+des[d]+ed[e]; end; writeln(st); End.
1.program z; var a:array [1..10] of integer; i,t:integer; s:real; begin for i:=1 to 10 do begin a[i]:=random(1,100); write(a[i]:4); if (odd(i)) and (odd(a[i])) then begin s:=s+a[i]; t:=t+1; end; end; writeln; write('Cреднее арифметическое = ',s/t); end. 2.program z; var a:array[1..10] of integer; max,i:integer; begin writeln('Исходный массив'); for i:=1 to 10 do begin a[i]:=random(1,100); write(a[i]:4); if a[i]>max then max:=a[i]; end; writeln; writeln('Измененный массив'); for i:=1 to 10 do begin if not(odd(a[i])) then a[i]:=max; write(a[i]:4); end; end.
http://www.uroki-scratch.narod.ru/images/krug5.gif
Объяснение: