Написано и протестировано в pascalabc.net (версия 2.2, сборка 842) const s='велосипедист'; var t: ='кытунак'; p: string; begin // 1 writeln(leftstr(s,9),', ', s[12]+s[2]+s[5]+s[12]+s[4],', ', s[4]+copy(s,3,2)+s[1]+s[4]); // 2 writeln('позиция буквы "д" в слове "'+s+'" равна ',s.indexof('д')+1); // 3 write('было: ',t,', стало: '); t[2]: ='о'; t[4]: ='е'; t: =t.replace('а','о'); writeln(t); // 4 write('коды символов слова ',t,': '); foreach c: char in t do write(ord(c),' '); writeln; // 5 write('в слове ',t,' количество букв '); if odd(t.length) then writeln('нечетное') else writeln('четное') end. результат выполнения программы: велосипед, тесто, олово позиция буквы "д" в слове "велосипедист" равна 9 было: кытунак, стало: котенок коды символов слова котенок: 234 238 242 229 237 238 234 в слове котенок количество букв нечетное
Галстян874
21.04.2021
{заполняем, например, массив в диапазоне [-50.99]} const n=10; var a: array[1..n]of integer; i: integer; s,p: real; begin randomize; p: =1; for i: =1 to n do begin a[i]: =random(100)-50; write(a[i]: 4); p: =p*a[i] ; s: =s+a[i]; end; writeln; writeln('p = ',p, ' s= ',s); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько цветов можно максимально использовать для хранения изображения размером 350х200 пикселей, если объем страницы видеопамяти - 65 кбайт?
350*200=70000 пикселей
65кбайт=65*1024=66560 байт=66560*8=532480бит
532480/70000= 7.6 т.е 7 целых бит на пиксель
с 7 бит можно закодировать 2^7=128 цветов