Дана последовательность целых чисел, оканчивающаяся числом 100. определить, есть ли в последовательности число 77. если такое число есть, то вывести «yes». в противном случае вывести «no». решить данную двумя способами, используя циклы с пред и пост условиями в паскале)

1)первый  способ: program one; var a,b: integer; begin b: =0; readln(a); while a< > 100 do begin if a=77 then begin b: =b+1; readln(a); end else readln(a); end; if b> 0 then writeln('yes') else writeln('no'); end. 2)второй  способ:   program one; var a,b: integer; begin b: =0; repeat readln(a); if a=77 then b: =b+1; until a=100; if b> 0 then writeln('yes') else writeln('no'); end.

// 1. var a,b,c: real; begin writeln('введите два катета  a,b: '); readln(a,b); writeln('введите гипотенузу  c: '); readln(c);   if sqr(c) = sqr(a) + sqr(b) then writeln('треугольник прямоугольный.')   else writeln('треугольник не прямоугольный.'); end.// 2.vara: array [1..100] of integer; x,i,n: integer; beginwriteln('введите кол-во чисел  n: '); readln(n); writeln('введите числа: '); for i: = 1 to n do  readln(a[i]); writeln('вы ввели: '); for i: = 1 to n do  write(a[i]: 4); writeln; for i: = 1 to n do  if a[i] > -1 then x: =x+1; writeln('среди них положительных: ',x); end.

Var   a : array [1..1000] of integer;   i, n, z, p, m  : integer; begin   i : = 0;   while not eoln do   begin     read (z);     inc (i);     a[i] : = z;     end;   m: = i; n: =0; z: =0; p: = 0;     for i : = 1 to m do      if i mod 2 = 0 then     begin       if a[i] < = then inc (n)        else if a[i] > 0 then inc (p)       else inc (z);     end;   writeln (n, ' ', z, ' ', p); end.