Необходимо решить 4,5,6,7 задачи. , кто что знает. Благодарю

Необходимо решить 4,5,6,7 задачи. Помогите,кто что знает. Благодарю.

  • 4)

    Program Zad4;
    var mas:array[byte] of integer;
    i,a,max,min:integer;
    Begin
    i:=0;
    a:=1;
    while a<>0 do begin
    readln(a);
    if a=0 then break;
    i:=i+1;
    mas[i]:=a;
    end;
    if i>0 then begin
    max:=mas[1];
    min:=mas[1];
    for a:=1 to i do begin
    if mas[a]>max then max:=mas[a];
    if mas[a] end;
    end;
    writeln('Kolichestvo=',i);
    writeln('Maximum=',max);
    writeln('Minimum=',min);
    end.
    5)

    Program Zad5;
    var a,c:integer;
    Begin
    readln(a);
    if a mod 7 =0 then writeln('voskresene')
    else begin
    c:=a-7*(a div 7);
    case c of
    1:writeln('Ponedelnik');
    2:writeln('Vtornik');
    3:writeln('Sreda');
    4:writeln('Chetverg');
    5:writeln('Patnitsa');
    6:writeln('Subbota');
    end;
    end;

    end.

    6)

    Program Zad6;
    var p,b:integer;
    a,n:real;
    Begin
    n:=1000;
    b:=0;
    readln(p);
    while n<=1500 do begin
    n:=n+n*(p/100);
    b:=b+1;
    end;
    writeln('Chislo mes.=',b);
    writeln('Vklad=',n:10:4);
    end.

     

     

Внимание, только СЕГОДНЯ!
Ссылка на основную публикацию
2018