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

117

443

Посмотреть ответы 2

Ответы на вопрос:

alyonaSidorenk

Информатика

4,4(59 оценок)

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.