Использовать режим разборки.Распознавать прямые. Распознавать окружности.Учитывать взаимопроникновение.Имя.
Спасибо
Ответ дал: Гость
1)2 детей переплывут первыми
2) 2 ой возвращается
3)забирает взрослого( сам высажевается
4)(взрослый высажевается)сын плывет за другим
5) они возвращаются
Ответ дал: Гость
паскаль
откомпилирован в: pascal abc
program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Популярные вопросы