Дано словесное описание алгоритма: z: =2; d: =7; k=0; начало цикла пока d> =z d: =d – z; k=k+1; конец цикла; вывести результат на экран. составить блок-схему в виде циклического алгоритма. определить количество циклов k. написатьпрограмму на языке паскаль с использованием оператора цикла с предусловием.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

 

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

// pascalabc.net 3.0, сборка 1076 const   n=20; { количество дат } type   tdate=record       d: 1..31;       m: 1..12;       y: word   end; var   dates: array[1..n] of tdate;   i: byte;   s,st: string;   begin   randomize;   for i: =1 to n do begin       s: ='';       with dates[i] do begin           d: =random(27)+1;           str(d,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           m: =random(12)+1;           str(m,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           y: =random(51)+1960;           str(y,st);           s: =s+st;           if m in [3..5] then s: =s+' - весенняя';           writeln(s)       end   end end. тестовое решение: 22.12.1979 21.10.1975 25.03.1980 - весенняя 23.04.1967 - весенняя 09.10.1967 16.05.1965 - весенняя 09.08.1996 05.10.2001 10.11.1985 18.08.1970 08.10.1983 01.12.2005 01.01.1994 09.11.1962 14.09.1979 24.03.2008 - весенняя 14.01.2003 22.04.1990 - весенняя 18.08.1969 16.05.2009 - весенняя

Var a: array[1..20]of integer;     b: array[1..20]of real;     i,s: integer; begin   write('massiv a: ');   for i: =1 to 20 do   begin     read(a[i]);     write(a[i],' ');   end;   writeln;   write('massiv b: ');   for i: =1 to 20 do   begin     b[i]: =sqrt(a[i]);     write(b[i],' ');   end;   writeln;   for i: =11 to 15 do   begin     s: =s+a[i];   end;   write('summa elementov s 11 do 15: ',s); end.