Найти длину окружности L и площадь круга S заданного радиуса R. (L=2πR; S=πR^2; π=3,14). (Pascal)

219

227

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

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

asli121

Информатика

4,6(77 оценок)

Если слова в предложении разделяются одним пробелом, то: var s: string; p,k: integer; begin writeln('введите предложение: '); readln(s); s: =s+' '; k: =0; p: =pos(' ',s); while p< > 0 do begin k: =k+1; delete(s,1,p); p: =pos(' ',s); end; writeln('k = ',k); end. пример: введите предложение: определить, сколько слов в данном предложении. k = 6