zubov-073620
zubov-073620
11.05.2020
?>

Выполнить в paskal ввести слово. вывести слово, полученное путем перестановки местами половинок введенного слова. ввести строку. подсчитать , сколько в ней символов * d f h. ввести строку. удалить из нее все цифры.

Информатика
Ответить

Ответы

el-dent12
el-dent12
11.05.2020
Var   s1, s2: string;   i, n: integer; begin   write('введите слово: ');   readln(s1);   n : = length(s1);   i : = n div 2;   s2 : = copy(s1, i + 1, n - i) + copy(s1, 1, i);   writeln('а вот перестановка его частей: ', s2) end. тестовое решение: введите слово: тестирование а вот перестановка его частей: ованиетестир var   s: string;   i, n, c1, c2, c3, c4: integer; begin   write('введите строку: ');   readln(s);   n : = length(s);   c1 : = 0; c2 : = 0; c3 : = 0; c4 : = 0;   for i : = 1 to n do       case s[i] of           '*': c1 : = c1 + 1;           'd': c2 : = c2 + 1;           'f': c3 : = c3 + 1;           'h': c4 : = c4 + 1       end;   writeln('в строке встретилось следующее количество символов: ');   writeln('*-', c1, ', d-', c2, ' f-', c3, ' h-', c4) end. тестовое решение: введите строку: why do you cry, willi, why do you cry? в строке встретилось следующее количество символов: *-0, d-2 f-0 h-2 const   digits = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']; var   s1, s2: string;   i, n: integer; begin   write('введите строку: ');   readln(s1);   n : = length(s1);   s2 : = '';   for i : = 1 to n do       if not (s1[i] in digits) then           s2 : = s2 + s1[i];   s1 : = s2;   writeln('строка с исключенными цифрами: ', s1); end. тестовое решение: введите строку: сегодня в 14: 52 я получил сообщение, что телепередача в 21: 50 не будет интересной. строка с исключенными цифрами: сегодня в : я получил сообщение, что телепередача в : не будет интересной.
Станиславович ыфвыв
Станиславович ыфвыв
11.05.2020

<html>

<body>

<h3 style="margin-bottom: -19px; margin-left: 30px"><b>Редакторы компьютерной графики:</b></h3>

<ul style="font-size:19px">

<li style="margin-left:-10px" type="square">Векторные редакторы

<ul style="font-size:19px">

<li style="margin-left:10px" type="disc" >CorelDRAW

<ol>

<li style="padding-left:10px">CorelDRAW</li>

<li style="padding-left:10px">Corel PhotoPaint</li>

<li style="padding-left:10px">Corel R.A.V.E</li>

</ol>

</li>

</ul>

</li>

<li style="margin-left:-10px" type="square">Растровые редакторы

<ul style="font-size:19px">

<li style="margin-left:10px" type="disc" >Adobe Photoshop

<ol>

<li style="padding-left:10px">Adobe Photoshop</li>

<li style="padding-left:10px">Adobe ImageReady</li>

</ol>

</li>

</ul>

</li>

</ul>

</body>

</html>

Объяснение:

картинка


Создайте HTML-документ, содержащий вложенный список ​
Yevsyukov1697
Yevsyukov1697
11.05.2020

2000 Байтов.

Объяснение:

В алфавите 16 букв. Зная это информацию, мы можем воспользоватся формулой Хартли - N = 2^i, где N - мощность алфавита, а i - вес одного символа. 16 = 2^4. В задаче говорится, что все слова этого языка состоят из 5 букв. Выполнив обычные умножение, мы можем узнать вес одного слова в битах. 5 * 4 = 20 бит - вес одного слова. Далее просто вес одного слова умножим на их количество. 20 * 8000 = 160000. Нас просят  выразить информацию в Байтах, поэтому получившееся число разделим на 8, т.к. в одном Байте восемь бит информации. 160000 : 8 = 20000 Байтов - вес всех слов, составленных из букв алфавита.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Выполнить в paskal ввести слово. вывести слово, полученное путем перестановки местами половинок введенного слова. ввести строку. подсчитать , сколько в ней символов * d f h. ввести строку. удалить из нее все цифры.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Allahverdi_Мария475
Вводятся k натуральных чисел. Найти сумму цифр каждого из них
Автор: Allahverdi_Мария475
ИП Жанара
Ниже приведена программа. Было проведено 10 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел вида (s, t): (3, 3); (3, 6); (3, -4); (7, 4); (7, ...
Автор: ИП Жанара
vetviptime
Https://www.youtubeind.com/watch.php?vid=4bb38bcc7 https://www.youtubeind.com/watch.php?vid=9a2eccd43 https://www.youtubeind.com/watch.php?vid=3b5c9c8cb https://www.youtubeind.com/watch.php?vid=042e4d...
Автор: vetviptime
modno-trikotazh
Даны вещественные числа а1, . определить сумму тех из низ, которые больше 10.75. решение по с# максимум что я понял, что надо через writeline ввести значения, но вот как сделать пример я не понял :...
Автор: modno-trikotazh
officem695
определите значение переменной b после выполнения данного алгоритма: a : = 14 b : = 4 a : = a / 2 – b b : = (a * b) / 2 b : = a + b
Автор: officem695
Спивак
Протабулювати функцію y =x*x на проміжку від 0 до 5 з кроком 0.2.Через цикл быстрее.На Java.
Автор: Спивак
alvs9
Выполни сложение: 1110002+1012все в двоичной) запиши правильный ответ.
Автор: alvs9
dearmaria
Условие: вася любит решать на темы, которые проходили на занятиях кружка по . он познакомился с темой, связанной с делимостью чисел. по дороге домой из школы он записывал все числа, которые встрети...
Автор: dearmaria
martinson1136
Ниже приведена программа. Питон a = int(input()) b = int(input()) if (a&gt;10) or (b&gt;10): print("ДА") else: print("НЕТ") Было проведено 9 запусков программы, при которых в качестве значений переме...
Автор: martinson1136
efimov33
По информатике! программа паскаль через цикл for(с предусловием) 1.вычислить сумму ряда s=1+1, 5+2+2, 5+3+3, 5++30 (где / - дробь)2.вычислить сумму ряда s= 2+2/1 + 2/2+2/3+2/; 2/i; с точностью e=0, 1
Автор: efimov33
соловьев_Куркина
Укажите отношение для пары "графический редактор и ms paint"
Автор: соловьев_Куркина
prokodasha
Световое табло состоит из лампочек, каждая из которых может находиться в двух состояниях: &lt; &gt; или &lt; &gt; . какое наименьшее количество лампочек должно находиться на табло, чтобы с его можно...
Автор: prokodasha
Plamia7917
Перевести: 0, 1875 (из 10-ой в 8-ую систему счисления
Автор: Plamia7917
oxy03214428
Рисунок размером 256 на 76 пикселей закодирован с палитрой 256 цветов сколько килобайт занимает в памяти рисунок без учета сжатия
Автор: oxy03214428
Белов_Лукина1339
Запусти Pascal. Введи программу. program pr_1; var x, y, sum, umn: integer; begin write ('x='); readln (x); write ('y='); readln (y); sum:=x+y; umn:=x*y; writeln ('sum=', sum); writeln ('umn=', umn);...
Автор: Белов_Лукина1339
▲