Регистрация
rokovayajenshi
12.02.2020 02:57
Информатика
Есть ответ 👍

Это займёт у вас 25 секунд
собрать данные для информатики . нужно пройти опрос (6 коротких вопросов )
кто прошёл, поставьте плюс


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

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

урсвт
урсвт
4,4(30 оценок)

если не секрет, с какой целью данный опрос ?

и небольшое замечание, продуманны не все варианты ответа

angel218
angel218
4,8(51 оценок)

var a: string; i: integer; beginreadln(a); a: =a+' '; while length(a)> 0 do beginif a[1]='a' then inc(i); delete(a,1,pos(' ',a)); end; writeln(i); end.

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