Всоревнованиях по гимнастике аня, вера, галя и наташа заняли первые четыре места. определите, кто какое место, если известно, что галя вторая, наташа хотя и не стала победителем, но в призеры выиграла, а вера проиграла ане.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,h:real; Write('Введите начальное значение, конечное и шаг: '); Read(a,b,h); var n:=Trunc((b-a)/h)+1; for var i:=1 to n do begin var x:=a+(i-1)*h; var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x; Writeln(x:0:3,' ',y:0:5) end end.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Длина последовательности: '); var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1 a.Println; if a.Where(x->x>=0).Distinct.Count>1 then Writeln('Есть отличающиеся элементы') else Writeln('Все элементы равны') end.
Примеры Длина последовательности: 4 1 1 1 -1 Все элементы равны
Длина последовательности: 5 0 1 1 0 -1 Есть отличающиеся элементы
