Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1) долгая бумага 2) потверждает файл или папку
function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do
begin k: =k+1;
delete(s,max(max(pos('.',s),pos('! ',('? ',); end; writeln(k); end.
1)52: 2=26(чел) любят пирож
2)26-20=6(чел) любят морож
ответ 6 чел
сохранить информацию о наблюдаемом объекте
передать информацию о нём другим людям
испытать на модели работу объекта ,если испытание объекта-оригинала опасно или дорого
Популярные вопросы