Var x:integer; begin readln(x); if (x>1) and (x<10) then writeln("Yes") else writeln("No"); end.
dilshermatov5806
28.02.2023
1. 4 шага: 35 56 1) 35 21 2) 14 21 3) 14 7 4) 7 7
2. Кораблик (см. фото)
3.
Исходная цепочка ЛОМ 1-й шаг ЛОМ 2-й шаг ЛОММОЛ 3-й шаг ЛОММОЛН 4-й шаг ЛОММОЛН 5-й шаг ЛОММОЛННЛОММОЛ 6-й шаг ЛОММОЛННЛОММОЛО Результат ЛОММОЛННЛОММОЛО Количество букв «О» 5
4.
Исходная цепочка КОЛ 1-й шаг Л 2-й шаг ЛЛО 3-й шаг ЛЛОК Результат ЛЛОК
5.
Номер строки Строка 1 1 2 21 3 312 4 4213 5 53124 6 642135 .............. 9-я строка будет оканчиваться на четные цифры от 8 вниз 2468
Avdimov5
28.02.2023
1шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОМ+МОК = КОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой М в русском алфавите следует буква Н) КОММОК+Н = КОММОКН 2 шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОММОКН+НКОММОК = КОММОКННКОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой Н в русском алфавите следует буква О) КОММОКННКОММОК+О = КОММОКННКОММОКО ответ: количество букв О в полученной последовательности = 5
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу на языке паскаль: выяснить принадлежит ли точкаx отрезку от 1 до 10? буду )
begin
readln(x);
if (x>1) and (x<10) then
writeln("Yes") else
writeln("No");
end.