Даны три числа , если они расположены по возрастанию, то увеличить каждое в три раза, если по убыванию, то уменьшить каждое в три раза, иначе - найти их сумму.
Var a,b,c:real; begin Write('Введите три числа: '); Readln(a,b,c); if (b>a) and (c>b) then Writeln(3*a,' ',3*b,' ',3*c) else if (a>b) and (b>c) then Writeln(a/3,' ',b/3,' ',c/3) else Writeln('Сумма равна ',a+b+c) end.
Тестовые решения: Введите три числа: 14 17.8 -6 Сумма равна 25.8
Введите три числа: 14 37 62.43 42 111 187.29
Введите три числа: 45 0 -10 15 0 -3.33333333333333
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
1) c = int(input('Це число просте?: ')) i = 2 b = False while i <c: i+=1 if c%2==0: b = True if b==True: print('Нет') else: print('Да')
2) c = int(input('Ведите сумму номеров прочитанных страниц: ')) suma = 0 i = 0 while suma<c: i+=1 suma += i if suma == c: print('Номер последней прочитанной страницы - ',i) elif suma > c: print('Сумма номеров прочитанных страниц не существует')
Пример: Ведите сумму номеров прочитанных страниц: 10Номер последней прочитанной страницы - 4Пример_1: Ведите сумму номеров прочитанных страниц: 512Сумма номеров прочитанных страниц не существует
3) mas = [] while True: a = float(input(' a = ')) if a == 0: breakmas.append(a) print(mas) print("Було введено ",len(mas),'чисел') print("Минимальне число: ",min(mas))
a,b,c:real;
begin
Write('Введите три числа: '); Readln(a,b,c);
if (b>a) and (c>b) then Writeln(3*a,' ',3*b,' ',3*c)
else
if (a>b) and (b>c) then Writeln(a/3,' ',b/3,' ',c/3)
else Writeln('Сумма равна ',a+b+c)
end.
Тестовые решения:
Введите три числа: 14 17.8 -6
Сумма равна 25.8
Введите три числа: 14 37 62.43
42 111 187.29
Введите три числа: 45 0 -10
15 0 -3.33333333333333