Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека
Сначала переводим 20(Кб) в биты для этого 20*1024*8=163840(бит) потом определим количество символов 163840/16=10240 найдем количество строк 10240/64=160 и наконец находим число страниц 160/40=4. Ответ: 4 страницы.
Ответ:
One = input()
Two = input()
Three = input()
if One == 'раз' and Two == 'два' and Three == 'три':
print('ГОРИ')
else:
print('НЕ ГОРИ')
Объяснение:
проверил,работает