Проверяем знания
ПРЕЗЕНТАЦИЯ К УРОКУ
Задача 1. В строке вида логин:пароль@сервер. Заменить каждый символ пароля *.
Ввод:
masha:123456@qwe.biz
Вывод:
masha:******@qwe.biz
РЕШЕНИЕ ЗАДАЧ
Задача 2. Набрать и выполнить программу для решения классной задачи.
var s:string;
n,nd,ns:integer;
begin
writeln('Введите строку вида логин:пароль@сервер');
Задача 3. Дана строка вида имя пользователя@логин#пароль/ник Замените каждый символ пароля %
Задача 4.
Разберите решение задачи.
Задача. Дана строка вида. Посчитайте сколько цифр в строке.
var s:string;
k, m:integer {кол-во цифр в строке};
begin
writeln('Введите строку');
readln(s);
k:=0;
for m:=1 to length(s) do
if (s[m]>=’0’) and (s[m]<=’9’) then k:=k+1 ; {если символ цифра, то увеличиваем кол-во на 1}
writeln(k);
end.
Решите задачу. Дана строка символов. Проверить, является ли строка записью целого числа. Число вводится без пробелов.
Примеры
Ввод:
100010
Вывод:
является
Ввод:
27 арбузов
Вывод:
не является
1. Если ввели только цифры, то количество цифр совпадёт с длиной строки.
Задача 5. Дана строка символов. Проверить, является ли строка записью числа. Число может быть записано с пробелом, например, 100 000, число может быть дробным, например, 5,2
Примеры
Ввод:
100010
Вывод:
является
Ввод:
11,5
Вывод:
является
является
Ввод:
27 арбузов
Вывод:
не является
ДЗ
Задача. Проверить, является ли строка записью числа римскими цифрами.
Ввод:
XХIV
Вывод:
является
является
Ввод:
Лето 2000 года
Вывод:
не является
