Микрофон - <span>Ввод звука в компьютер</span>
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var adelim:=' .,;:!?-'.ToCharArray;
var s:=ReadlnString;
Writeln(25*'- ');
var c:=ReadlnChar('Буква для поиска слов:'); Writeln(25*'- ');
var ww:=s.ToWords(adelim).Where(w->w.First=c);
foreach var w in ww do begin
var i:=Pos(w,s);
Delete(s,i,w.Length); Insert(w.Inverse,s,i)
end;
s.Println; Writeln(25*'- ');
Writeln('Предложений всего: ',s.ToWords('.').Count)
end.
По вертикали:
1. Сканер
2. Сопроцессор
4. Плоттер
5. Регистр
7. Память
8. Стример
9. Модем
12. Динамики
13. Тюнер
16. Шина
По горизонтали:
3. Контроллер
6. Процессор
10. Винчестер
11. Принтер
12. Джойстик
14. Монитор
15. Мышь
17. Дискета
18. Адаптер
19. Дигитайзер
For i:= 110 downto 90 do
write(" ",i);
Program zadacha;vara,b:real;beginwriteln('vvedite dva chisla');read(a,b);if a>b then writeln(a,'>',b);if a<b then writeln(a,'<',b);if a=b then writeln(a,'=',b);end.