// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a,b,c:integer; // цифры числа n = abc var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию var s1:array[1..3] of string:=('первая','вторая','третья'); var s2:array[1..3] of string:=('первой','второй','третьей'); a:=n div 100; b:=(n div 10) mod 10; c:=n mod 10; // сортировка по неубыванию if a>b then begin Swap(a,b); Swap(i,j) end; if b>c then begin Swap(b,c); Swap(j,k); if a>b then begin Swap(a,b); Swap(i,j) end end; if c>b then Writeln(s1[k],' цифра больше остальных') else if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i]) else Writeln('Все три цифры одинаковы') end.
Var S:string; Begin Write('Введите строку: ');ReadLn(S); S:=Copy(S,1,Length(S) div 2); WriteLn(S); End.
Пример работы программы:
Введите строку: 1234 12
Для удаления левой половины символов:
Var S:string; Begin Write('Введите строку: ');ReadLn(S); S:=Copy(S,Length(S) div 2+1, Length(S)); WriteLn(S); End.
Пример работы программы:
Введите строку: 1234 34
Удаление выбранной половины символов:
Var S:string; A:byte; Begin Write('Введите строку: ');ReadLn(S); WriteLn('1 - удаление правой половины, 2 - удаление левой половины'); ReadLn(A); if A = 1 then S:=Copy(S,Length(S) div 2+1, Length(S)) else S:=Copy(S,1,Length(S) div 2); WriteLn(S); End.
Пример работы программы:
Введите строку: 1234567890 1 - удаление правой половины, 2 - удаление левой половины 2 12345
"...получил от Гриши, Ярослава и Бориса ответ: не мы" - это некорректная постановка задачи. Если понимать это так, что каждый ответил "не я", задача имеет решение. Но если "не мы" - это означает у каждого "не мы трое", то получается что трое ответили одинаково, но солгали двое, а это противоречие. Следовательно, надо все же понимать, что "не мы" - это "не я".
Итак, два ответа истинных, два - ложных. Тогда среди "не мы" есть хотя бы один истинный и один ложный ответ.
Пусть один "не мы" ложный (а два истинных), тогда его автор и взял ручку Никиты, а Лев солгал и он знает, кто взял ручку.
А теперь пусть два "не мы" ложных, а один истинный. Тогда получается, что ручку взяли сразу двое - те, кто солгал. Это противоречит условию, где сказано. что ручку взял один, следовательно, так быть не может.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a,b,c:integer; // цифры числа n = abc
var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
var s1:array[1..3] of string:=('первая','вторая','третья');
var s2:array[1..3] of string:=('первой','второй','третьей');
a:=n div 100;
b:=(n div 10) mod 10;
c:=n mod 10;
// сортировка по неубыванию
if a>b then begin Swap(a,b); Swap(i,j) end;
if b>c then begin
Swap(b,c); Swap(j,k);
if a>b then begin Swap(a,b); Swap(i,j) end
end;
if c>b then Writeln(s1[k],' цифра больше остальных')
else
if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i])
else Writeln('Все три цифры одинаковы')
end.
Примеры
n= 638
третья цифра больше остальных
n= 583
вторая цифра больше остальных
n= 707
первая и третья цифры больше второй
n= 444
Все три цифры одинаковы