1. Треугольник будет существовать если будут выполнятся одновременно три неравенства:
x + y > z
x + z > y
y + z > x
Программа:
var x, y, z: real;
begin
writeln('Введите стороны треугольника x, y, z: ');
read(x, y, z);
if (x + y > z) and (x + z > y) and (y + z > x)
then writeln('Треугольник существует')
else writeln('Треугольник не существует');
end.
2. Думаю, здесь излишни объяснения.
Программа:
var x, y, z: real;
begin
writeln('Введите три числа: ');
read(x, y, z);
writeln('В интервале (1; 3) лежат числа: ');
if (x > 1) and (x < 3) then writeln(x);
if (y > 1) and (y < 3) then writeln(y);
if (z > 1) and (z < 3) then writeln(z);
end.
Блок-схемы в приложении:
Хранение, обработка, передача
3 ГБ = 3x1024 МБ=3072 МБ
3072+800=3872 МБ
import Foundation
func makeList(_ n: Int) -> [Int] {
return (0..<n).map{ _ in Int.random(in: 1 ... 100) }
}
let list = makeList(15) // [9, 30, 66, 2, 29, 16, 92, 84, 90, 6, 43, 20, 17, 31, 64]
var summ = 0
for number in list {
summ += number
}
print(summ) // 599
Ответ:12000
Объяснение: т.к 12000/08,5