Выполнить в paskal
10-11 класс
|
....
Ввести слово. Вывести слово, полученное путем перестановки местами половинок введенного слова.
....
Ввести строку. Подсчитать , сколько в ней символов * D F H.
....
Ввести строку. Удалить из нее все цифры.
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 не будет интересной.
Строка с исключенными цифрами: Сегодня в : я получил сообщение, что телепередача в : не будет интересной.
Другие вопросы из категории
сгенерируйте натуральное число в интервале от 100 до 900. Найдите трехзначное
число, состав ленное из тех же цифр, но записанных в обратном порядке.
Прграмма для выполнения Microsoft visual studio C++
Нужно написать линейный алгоритм.
2) Вывести на экран первую букву третьего слова данного текста. Если нет третьего слова, то вывести сообщение "ошибка".
Читайте также
N=12 Ввести число К Определить количество элементов массива, значения которых больше K.
...
Все элементы массива увеличить в 3 раза. Массив вывести.
...
Определить максимальное значение сред положительных элементов массива.
1) 110 + 101;
2) 10101-11;
3) 101 ´ 11;
4) 1110:10.
Задание 12. Выполните арифметические действия:
а) 11102 + 10012;
б) 678 + 238;
в) AF16 + 9716;
г) 11102 - 10012;
д) 678 - 238;
e) AF16 - 9716;
ж) 11102 × 10012;
з) 678 × 238;
и) AF16 × 9716;
к) 10102 : 102;
л) 748 : 248;
м) 5А16 : 1Е16.
Выберите один или несколько ответов:
Антивирусная защита
Табличная обработка данных
Машинная и деловая графика
Работа с базами данных
Обработка текстовКакие функции выполняет прикладное ПО?
системе счисления.
80,1- Перевести их в 2-ую, 8-ую и 16-ую, системы счисления.
Выполнить в этих системах их сложение, вычитание и умножение.
Ответ записать в 10-ой системе счисления.
а) 10000011(2)+1000011(2); б) 1010010000(2)+1101111011(2); в) 110010,101(2)+1011010011,01(2); г) 356,5(8)+1757,04(8); д) 293,8(16)+3CC,98(16).
2. Выполнить вычитание: а) 100111001(2)-110110(2); б) 1111001110(2)-111011010(2); в) 1101111011,01(2)-101000010,0111(2); г) 2025,2(8)-131,2(8); д) 2D8,4(16)-A3,B(16).
3. Выполнить умножение:
а) 1100110(2)× 1011010(2); б) 2001,6(8)× 125,2(8); в) 2C,4(16)× 12,98(16).
4. Выполнить деление:
а) 110011000(2) : 10001(2); б) 2410(8) : 27(8); в) D4A(16) : 1B(16);