Предмет: Информатика, автор: 008amc

Дана последовательность целых чисел, оканчивающаяся числом 100. Определить, есть ли в последовательности число 77. Если такое число есть, то вывести «Yes». В противном случае вывести «No». Решить данную задачу двумя способами, используя циклы с пред и пост условиями.

Ответы

Автор ответа: uropb123
0
program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do numb[i]:=random(101);// задает последовательность

for i:=1 to 100 do
begin
write(',',numb[i]); // вывод на экран последовательность(можно удалить)
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
end;
if f=0 then writeln('Yes') else writeln('No');

end.


program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do begin
numb[i]:=random(101);// задает последовательность
write(' ',numb[i]);//вывод на экран, можно удалить
end;
writeln;
i:=0;
repeat
i:=i+1;
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
until i<100;
if f=0 then writeln('Yes') else writeln('No');

end.



Автор ответа: uropb123
0
нз)
Автор ответа: redra1n
0
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.
Похожие вопросы
Предмет: Химия, автор: Oskarae
Предмет: Английский язык, автор: nika1872
Предмет: Қазақ тiлi, автор: tlektessamat7
Предмет: Биология, автор: vladkadka

Задача 1. Фокстер’єри, гомозиготні за рецесивним алелем певного гена, сліпі від народження. Пара плідників з нормальним фенотипом дала сім цуценят, з яких п’ять мали нормальний фенотип, а двоє виявилися сліпими. Встановіть генотипи батьків та їхніх нащадків

 

Задача 2. У кролів алелі, які визначають коротке хутро та вертикальне положення вух, домінують над тими, що відповідають за видовжене («ангорське») хутро та висячі вуха. Обидва гени розташовані у негомологічних хромосомах та успадковуються незалежно.

1. Від схрещування самця зі стоячими вухами й короткою шерстю та висловухої самки з ангорським хутром приблизно 25 % нащадків першого покоління мали стоячі вуха та ангорське хутро, 25 % – ­висячі вуха та коротке хутро, 25 % – стоячі вуха та коротке хутро, 25 % – висячі вуха та ангорське хутро. Визначте генотипи батьків і нащадків.

2. Від схрещування самців зі стоячими вухами та короткою шерстю та висловухих самок з ангорським хутром отримали нащадків зі стоячими вухами та короткою шерстю. При схрещуванні гібридів 1­го покоління 10 нащадків мали стоячі вуха та коротке хутро, 4 – стоячі вуха та ангорське хутро, 3 – висячі вуха та коротке хутро, 2 – висячі вуха та ангорське хутро. Визначте генотипи батьків і гібридів першого та другого покоління.