1)
a = int(input("a = "))
b = int(input("b = "))
c = int(input("c = "))
if a<b: min = a
else: min = b
if c<min: min = c
s = a+b+c-min
print("Сумма 2 наибольших =",s)
Пример:
a = 45
b = 32
c = 74
Сумма 2 наибольших = 119
2)
a = int(input("a = "))
b = int(input("b = "))
if a>b:
c = a
a = b
b = c
print("a =",a," b = ",b)
Пример:
a = 45
b = 32
a = 32 b = 45
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(t->t<0?0:t); a.Println
end.
<u>Пример</u>
n= 13
39 11 37 -44 25 -26 -15 10 2 -15 31 -13 -18
39 11 37 0 25 0 0 10 2 0 31 0 0
Например так
Program Name_1;
var
name1, name2, name3, probel, dot: string;
number: integer;
begin
name1 := 'Ivanov_Ivan_Xvanovic';
probel := '_';
dot := '.';
number := Pos(probel, name1);
Writeln(number);
Writeln(name1);
{Delete(name1, number+2, 60);}
name2:=name1;
name3:=name1;
{Вырезаем имя}
Delete(name1, number, 60);
Delete(name2, 1, number); {сформировали 1й инициал}
Delete(name2, 2, 60);
Delete(name3, 1, number); {формируем 2й инициал}
number := Pos(probel, name3);
Delete(name3, 1, number);
Delete(name3, 2, 60);
Writeln('Ваши инициалы: ',name1,' ', name2, dot, ' ', name3, dot);
Readln();
end.
Поясню, у меня с кирилицей иногда чудит, поэтому перешел на латиницу, ну и поменял
букву в отчестве, Чтоб быть уверенным, что вырезан именно 2й инициал, а не повторно 1й, они ж одинаковые были.
При отладке пробел в строке заменял подчеркиванием, чтобы четко видеть, что режет программа.
Если дан двумерный массив(х,у), то <span>взаимосвязь индексов следующая : индекс строки увеличиваем на 1, индекс строки, начиная с конца, уменьшаем на 1.</span>
1.Сообщения, осведомляющие о положении дел, о состоянии чего-н.