Душераздирающее зрелище

Ограничение времени 1 секунда

Ограничение памяти 64Mb

Ввод стандартный ввод или input.txt

Вывод стандартный вывод или output.txt

Как-то Иа-Иа — старый серый ослик — долго стоял на берегу ручья и понуро смотрел в воду на своё отражение.

— Душераздирающее зрелище, — сказал он наконец. — Вот как это называется — душераздирающее зрелище.

Он повернулся и медленно побрёл вдоль берега вниз по течению. Пройдя метров двадцать, он перешёл ручей вброд и так же медленно побрёл обратно по другому берегу. Напротив того места, где он стоял сначала, Иа остановился и снова посмотрел в воду.

— Я так и думал, — вздохнул он. — С этой стороны ничуть не лучше. Но всем наплевать. Никому нет дела. Душераздирающее зрелище — вот как это называется!

Напишите программу, которая определяет, насколько одинаково выглядит отражение с разных сторон ручья.

Формат ввода

Целое число n — количество символов, на которые могут отличаться пары строк (по значению, а не по положению в строке).

Затем вводятся пары строк, пока не будет введена пустая строка.

Формат вывода

Если в паре строки отличаются не более, чем на n символов (символы в разных регистрах — это разные символы, но одинаковые считать только один раз, например, в слове “оно” 2 различных символа), то отражения можно считать одинаковыми.

Нужно вывести сначала количество пар, которые можно считать одинаковыми, а с новой строки — количество неодинаковых пар.

Пример 1

Ввод Вывод

2 1

Ввод Вывод

Душераздирающее зрелище

Да, душераздирающее зрелище

побрёл вдоль берега

побрёл обратно по берегу

1

Пример 2

Ввод Вывод

4

Доброе утро, Иа

Доброе утро, Пух

Если это утро доброе.

В чём я лично сомневаюсь.

Во мой и краток, —

Промолвил Носорог, —

Что лучше — сорок пяток

Или пяток сорок?

Увы, никто на это

ответа Дать не мог!

1 4

Примечания

В первом примере количество символов, на которое могут отличаться пары последовательно введенных строк, равно двум. В первой паре (первые 2 строки) различный символ только один, это запятая. Во второй паре таких символов 6: 'д', 'н', 'у', 'т', 'ь', 'в'.

Значит, пар, которые можно считать одинаковыми, одна, и неодинаковыми тоже одна.

👇

Увидеть ответ

Ответ:

vladik883763

23.04.2023

Відповідь:

извини тоже не знаю

Пояснення:

4,4(8 оценок)

Открыть все ответы

Ответ:

елізабет2002

23.04.2023

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
var a:=ReadString('a->');
Println('Сумма больше ',a.JoinIntoString(' ').ToIntegers.Sum>ReadInteger('k->')?'True':'False');
Println('a четное ',a.ToInteger.IsEven);
end.

Пример:
a-> 123456
k-> 22
Сумма больше False
a четное True

2)
begin
var a:=ReadInteger('a->'); Println('a нечетно',a.IsOdd);
var b:=a.ToString.JoinIntoString(' ').ToIntegers;
Println('Первая равна x',b.First=ReadInteger('x->')?'True':'False');
Println('Последняя равна y',b.Last=ReadInteger('y->')?'True':'False');
end.

Пример:
a-> 456485
a нечетно True
x-> 5
Первая равна x False
y-> 5
Последняя равна y True

4,4(76 оценок)

Ответ:

vovadavydov56

23.04.2023

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.

4,5(97 оценок)

Это интересно:

Компьютеры-и-электроника

09.11.2021

Как скачать приложения на Android: пошаговая инструкция для начинающих...

Компьютеры-и-электроника

18.09.2022

Как добавить кнопку Facebook на свой сайт: шаг за шагом...

Транспорт

14.01.2023

Как избежать аварий на дороге...

Компьютеры-и-электроника