Написать на pascal abc

всем известно, что многие олимпиадные начинаются со слов «всем известно». но мало кто знает, что начинающему программисту паше такие меньше всего нравятся. потому что обычно после слов «всем известно» описывается такой факт, о котором он даже не догадывался. после очередной подобной паша решил проверить, а действительно ли всем известно, что сумма первых n нечетных чисел равняется n2:

для этого паша провел опрос всех людей, попавшихся ему под руку в известной социальной сети. результаты опроса он записал в текстовый файл. он ставил цифру один, если человеку был действительно известен данный факт, в противном случае в файл записывался нуль. все было хорошо, пока паша не открыл файл и не ужаснулся, увидев длинную последовательность из единичек. как же он теперь будет искать среди них нули?

уже всем известно, что паша – начинающий программист, поэтому для обработки результатов исследования он обратился к вам за .

входные данные
входной файл input.txt содержит непустую последовательность из нулей и единиц. длина последовательности не превышает 10^4.

выходные данные
в выходной файл output.txt выведите слово «yes», если факт был известен всем опрошенным людям, и слово "no" в противном случае.

примеры
№ input.txt output.txt
1 01010011. no
2 11 yes

273

470

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

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

yashchenko04

Информатика

4,5(23 оценок)

ответ:

var t1,t2: text; c: char; f: boolean;

begin

assign(t1,'input.txt');

reset(t1);

assign(t2,'output.txt');

rewrite(t2);

f: =true;

while not eof(t1) and f do

begin

read(t1,c);

f: =f and (c='1');

end;

if f then writeln(t2,'yes')

else writeln(t2,'no');

close(t1);

close(t2);

end.

Белочка0107

Информатика

4,7(74 оценок)

// pascalabc.net 3.1, сборка 1256 от 21.06.2016 begin var a,b: real; write('введите стороны прямоугольника: '); read(a,b); writeln('площадь равна ',a*b) end. тестовое решение введите стороны прямоугольника: 3.4 5.6 площадь равна 19.04

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.