var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.
самые яркие сайты с детской тематикой. для детей красочно можно сделать
Const n=12;
a:array[1..n] of integer=(5,4,-3,1,0,-4,7,25,-8,-5,-17,-1);
var i:integer;
begin
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<0 then a[i]:=1
else if a[i]>0 then a[i]:=-5;
for i:=1 to n do write(a[i]:4);
end.
Результат:
<span> 5 4 -3 1 0 -4 7 25 -8 -5 -17 -1
-5 -5 1 -5 0 1 -5 -5 1 1 1 1</span>
1.+++-
2.++++
3.++++
4.+---
5.+--+
6.----
1) Обмен данными между ПК, и т.п.
Обеспечение системы
Загрузка программ в память
Организация диалога
2) Windows, Linux, Mac OS.
3)Обмен информацией командами или инструкциями между человеком и ЭВМ
4)В процессе практической работы на компьютере у пользователя периодически возникают проблемы, связанные как с работой системы в целом, так и отдельных устройств и программ: замедление работы, нехватка места на диске, ошибки выполнения программ, их зависание и т.п. Для выявления таких проблем, устранения причин их возникновения и обслуживания отдельных устройств в состав системного программного обеспечения включают сервисные программы (утилиты).
(Твой Одноклассник)