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.
Можно узнать о своих одноклассниках и немного про каждого написать. Потом написать я очень люблю свой класс он очень хороший. Мне повезло что у меня такой класс
Море-горе-гора-пора-пара-папа-сапа-Саша-суша.
<span>2) (X ∨ Y) → ¬Z является верным</span>
Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)