Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.
Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>
Ответ:
Объяснение: Она самая сказочная из всего, что меня окружает." Уже вслух сказал сказочный бегемотик своим сказочным голосом. Как хорошо жить в сказочном мире!
При столбцовой перестановке главное - это угадать количество столбцов. Их может быть от двух до половины символов в тексте. В этом случае полезно начать с выделения слова и решения полученной анаграммы.
Например, анаграмма ИПКСОЕ не дает осмысленного слова а русском языке. Укоротим ее на одну букву. ИПКСО - анаграмма слова ПОИСК. Логично предположить, что количество столбцов равно 5.
31542 - порядок столбцов
ИПКСО
Е_ТСМ
НАЧИ_
ОЕН_Г
ДЕЛА
После перестановки:
ПОИСК
МЕСТ
А НИЧ
ЕГО Н
Е ДАЛ
Результат: "ПОИСК МЕСТА НИЧЕГО НЕ ДАЛ"