Ограничение времени 1 секунда Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Маленький домик с девочкой Дороти и щенком Тото, унесённый ураганом, приземлился, наконец, в стране Жевунов. Как же здесь было красиво! Ярко зеленела трава, на деревьях зрели сочные плоды, повсюду росли чудесные цветы. У них были такие причудливые названия, что Дороти боялась их так сразу не запомнить и просила называть сначала только те, что покороче.

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

Формат ввода
Вводится число и две строки.

Формат вывода
Нужно вывести только строку, длина которой меньше числа. Если обе короче, то вывести каждую с новой строки в обратном алфавитном порядке. Если нет, то вывести число.

Пример 1
Ввод Вывод
9
Традесканция
Амариллис
9
Пример 2
Ввод Вывод
10
Анемона
Араукария
Араукария
Анемона
ОЧЕНЬ НУЖНА

👇

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

Ответ:

hshndnsyub

29.03.2020

Прикрепленный файл

Объяснение: фото

Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стан

4,6(7 оценок)

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

Ответ:

nastalut207

29.03.2020

Объяснение:

1. БЕЗ ПРИЗНАКОВ ЖИЗНИ (нет изображения, звуковых сигналов, не включаются светодиоды на системной плате и вентилятор ЦП)

2. ПК РАБОТАЕТ, НЕТ ИЗОБРАЖЕНИЯ (вентилятор ЦП работает, светодиоды материнской платы горят, но видеосигнала на мониторе нет)

3. BIOS ПРЕКРАЩАЕТ РАБОТУ (компьютер работает, но BIOS внезапно прекращает свою работу с ошибкой)

4. НЕ УДАЕТСЯ ЗАГРУЗИТЬ WINDOWS (появляется логотип ОС, но пользовательский интерфейс не загружается)

5. ПК РАБОТАЕТ СО СБОЯМИ (компьютер загружается, но «зависает» через некоторое время или под нагрузкой)

6. НЕ РАБОТАЮТ КОМПОНЕНТЫ ПК (проблемы с изображением или звуком, а также с портом USB и модулем Wi-Fi или приводом CD, DVD)

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

Ответ:

Dianaaaaaaaaaa03

29.03.2020

№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else
write('Треугольник неравнобедренный');
end.

БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец

№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.

БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
если i - нечётное, то
прибавить к s
вывести s
конец

Сделать блок ! на языке паскаль 1.заданы стороны треугольника. проверить является ли он равнобедренн