If <условие> Then<оператор_1> Else <оператор_2>; При выполнении условия программа оператор_1,при не выполнении условия,оператор_2. Условный оператор в общем случае If <условие> Then <группа операторов 1> end Else Begin <группа операторов 2> end; Перед Else точка с запятой не ставится никогда! Пример программы Programm Example; Var A,B,C:Real; {a,b-переменные для хранения аргументов, с-результат} Begin Writeln('Введите два числа'); Readln(A,B); if A>B Then C:=A Else C:=B; Writeln('Наибольшая из чисел = ' , C); Readln; {задержка экрана} End.
// PascalABC.NET 3.2, сборка 1482 от 12.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(3,4,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsWithIndexes.Where(z->z[0]<0); if s.Count=0 then Writeln('Нет отрицательных элементов') else begin Write('Отрицательные элементы: '); s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println end end.
0
Объяснение:
х = 2
у = х ** 2 + 10 = 2 ** 2 + 10 = 4 + 10 = 14
х = у // 5 - 2 = 14 // 5 - 2 = 2 - 2 = 0