1)Дано целое число N.Написать программу,заменяющую его 1,если число меньше нуля,и увеличивающую его на 6,если число больше или равно нулю. 2) Даны два числа a и b.Написать программу,которая выводит номер большего из них
1) program chislo1 uses crt var a: longint; begin clrscr; writeln ('введите целое число'); readln(a); if a<0 then a:=1<br>else a:=a+6; writeln (a); end. 2) program chislo2 uses crt var a,b: longint; begin clrscr; writeln ('введите два числа через пробел'); readln(a, b); if a>b then writeln (a) else writeln (b); end.
надо вывести само число
"номер большего из них"
номер не есть значение
пользователь вводит 2 числа, первое в переменной а - это само число, которое вводили первым...
ааа... всё... тогда программа не верна...
не посмотрела ранее
школьные задачки такие путанные, часто приходится переспрашивать учителя, чтоб понять , что именно от тебя хотят
вот вот. полностью с тобой согласна
значит последние 4 строчки будут следующие:
writeln('1') else writeln('2'); end.