Если я понял о чем ты, то вот: var x, y, b: integer; // описание переменных
begin // начало программы write ('y = x*b '); read(x,b); // ввод переменной x,b
if x > 0 // проверка, х больше от 0? then y := y * b // если да, то исполняется это else if x = 0 then //если нет, то это(тут опять же проверка, х равно 0?) y := 0 // если да то "y" присваивается 0 else y := abs(x); // если нет то "y" присваивается значение модуль "х"
PascalABC.NET Версия 3.3. сборка 1583 (25.11.2017)
var n:integer; a:array[1..100] of integer; begin write('Введите размер массива (n<100): ');readln(n); var max:=0; var min:=101; for var i:=1 to n do begin a[i]:=random(0,100); write(a[i],' '); if i mod 2=0 then if a[i]>max then max:=a[i] else if a[i]<min then min:=a[i]; end; writeln; writeln('Максимальный - ',max); writeln('Минимальный - ',min); readln; end.
def getNumbersSum(n)
n = n.to_i
sum = 0
while n > 0
sum += n % 10
n = n / 10
end
return sum
end