Procedure z1();var a:array[1..50] of integer; i,k:integer;begin for i:=1 to 50 do begina[i]:= random(10)-1;write(a[i]:3);if a[i] =0 thenk:=k +1;end;writeln;write('количество нулей = ',k);end;procedure z2();var a:array[1..30] of integer; i:integer;p:double;begin p:=1;for i:=1 to 30 do begina[i]:= random(10)+1;write(a[i]:3);if (i>1) and (i <30)thenp:=p*a[i];end;writeln;write('произведение чисел = ',p);end;procedure z3();var a:array[1..40] of integer; i,k:integer;begin for i:=1 to 40 do begina[i]:= random(10)+1;write(a[i]:3);if i mod 3 =0 then k:=k + a[i];end;writeln;write('сумму чисел = ',k);end;begin z1();writeln;z2();writeln;z3();end.
Const bd=['0'..'3']; var s,wa,wb,w:string; c:char; i,n:integer; bad_a:boolean; begin WriteLn('Вводите фразу, разделяя слова ровно одним пробелом'); Read(s); s:=s+' '; n:=Length(s); wa:=''; wb:=''; i:=1; bad_a:=false; w:=''; while i<=n do begin repeat c:=s[i]; if c<>' ' then begin bad_a:=bad_a or (c in bd); w:=w+c; Inc(i) end else begin if not bad_a then wa:=wa+' '+w; if s[i-1]='Я' then wb:=wb+' '+w; w:=''; bad_a:=false end until c=' '; Inc(i); end; wa:=Copy(wa,2,Length(wa)-1); wb:=Copy(wb,2,Length(wb)-1); Writeln(wa); Writeln(wb) end.
2) кни?га.doc
ім'я файлу не повинне містити таких символів / \ ? * " : < >