Дано целое число.указать какое это число положительное или отрицательное. заменить это число на 71 ,если это число равно 35.уменьшить это число на 23, если оно меньше 35.не изменять это число если оно больше 35
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadReal('Введите число:'); if n>0 then Writeln('Число положительное') else if n<0 then Writeln('Число отрицательное'); if n=35 then n:=71 else if n<35 then n-=23; Writeln('Результат: ',n) end.
DIM ch$(26) FOR i = 1 TO 26 ch$(i) = CHR$(ASC("a") + i - 1) NEXT
DIM cw(26) AS LONG
PRINT "text:" INPUT "", s$ DO WHILE s$ <> "*" s$ = s$ + " " iw = 0 FOR i = 1 TO LEN(s$) c$ = MID$(s$, i, 1) IF iw = 0 AND c$ <> " " THEN iw = 1 idx = ASC(c$) - ASC("a") + 1 cw(idx) = cw(idx) + 1 ELSEIF iw = 1 AND c$ = " " THEN iw = 0 END IF NEXT INPUT "", s$ LOOP
FOR i = 1 TO 25 m = i FOR j = i TO 26 IF cw(j) > cw(m) OR (cw(j) = cw(m) AND ch$(j) < ch$(m)) THEN m = j END IF NEXT IF m <> i THEN tmp = cw(m) cw(m) = cw(i) cw(i) = tmp tmp$ = ch$(m) ch$(m) = ch$(i) ch$(i) = tmp$ END IF NEXT
FOR i = 1 TO 26 IF cw(i) <> 0 THEN PRINT ch$(i) + ":"; cw(i) END IF NEXT
Задача: Определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран.Описание переменных: В программе будет три переменные для чисел, вводимых пользователем: n1, n2, n3. Также для упрощения алгоритма введем четвертую переменную, в которую по ходу выполнения кода будет помещено максимальное значение: max.Алгоритм решения задачи: Сравнить первое и второе число (n1 и n2). Переменной max присвоить значение переменной, содержащей большее значение.Сравнить значение переменной max с третьим числом, введенным пользователем (n3). Если значение n3окажется больше, чем max, то присвоить max значение третьего числа. Если же значение max окажется больше, то ничего не делать.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadReal('Введите число:');
if n>0 then Writeln('Число положительное')
else if n<0 then Writeln('Число отрицательное');
if n=35 then n:=71
else if n<35 then n-=23;
Writeln('Результат: ',n)
end.