Душераздирающее зрелище Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Как-то Иа-Иа — старый серый ослик — долго стоял на берегу ручья и понуро смотрел в воду на своё отражение. — Душераздирающее зрелище, — сказал он наконец. — Вот как это называется — душераздирающее зрелище. Он повернулся и медленно побрёл вдоль берега вниз по течению. Пройдя метров двадцать, он перешёл ручей вброд и так же медленно побрёл обратно по другому берегу. Напротив того места, где он стоял сначала, Иа остановился и снова посмотрел в воду. — Я так и думал, — вздохнул он. — С этой стороны ничуть не лучше. Но всем наплевать. Никому нет дела. Душераздирающее зрелище — вот как это называется! Напишите программу, которая определяет, насколько одинаково выглядит отражение с разных сторон ручья. Формат ввода Целое число n — количество символов, на которые могут отличаться пары строк (по значению, а не по положению в строке Затем вводятся пары строк, пока не будет введена пустая строка. Формат вывода Если в паре строки отличаются не более, чем на n символов (символы в разных регистрах — это разные символы, но одинаковые считать только один раз, например, в слове “оно” 2 различных символа), то отражения можно считать одинаковыми. Нужно вывести сначала количество пар, которые можно считать одинаковыми, а с новой строки — количество неодинаковых пар. Пример 1 Ввод Вывод 2 1 Ввод Вывод Душераздирающее зрелище Да, душераздирающее зрелище побрёл вдоль берега побрёл обратно по берегу 1 Пример 2 Ввод Вывод 4 Доброе утро, Иа Доброе утро, Пух Если это утро доброе. В чём я лично сомневаюсь. Во мой и краток, — Промолвил Носорог, — Что лучше — сорок пяток Или пяток сорок? Увы, никто на это ответа Дать не мог! 1 4 Примечания В первом примере количество символов, на которое могут отличаться пары последовательно введенных строк, равно двум. В первой паре (первые 2 строки) различный символ только один, это запятая. Во второй паре таких символов 6: 'д', 'н', 'у', 'т', 'ь', 'в'. Значит, пар, которые можно считать одинаковыми, одна, и неодинаковыми тоже одна.
Ответы
//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
//Версия 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
Створюємо кнопку
Для кнопки (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.
Для кнопки (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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Тема: Компьютерная арифметика. Операции с целыми числами
Автор: ИринаАлександровна
Определи тип исполнителя. Аудитор пишет отчёт.
Автор: rastockin8410
Каким образом из эллипса можно получить сектор, дугу
Автор: cat2572066
Відповідь:
извини тоже не знаю
Пояснення: