Задача в Паскаль.Операторы IF-else Просто составить,запутался в операторах
Answers & Comments
annmainerProgram N; var a: integer; begin write ('Введите целое число: '); readln(a); if a = 0 then writeln ('ноль') {если введённое число равно 0, то вывести соответствующее сообщение} else if a = 1 then {иначе если данное число равно 1, то вывести соответствующее сообщение} writeln ('один') else if a = 2 then writeln ('2') {иначе если данное число-2, то вывести соответствующее сообщение} else writeln ('неизвестное число'); {иначе число незивестное} readln end.
DrParshukov
Program N; var a,b: integer; begin write ('Введите число: '); readln(a); write ('Введите число: '); readln(b); if a > b then writeln ('a>b') else if a<b then writeln ('b>a') end.
annmainer
я знаю, просто привела такой пример, чтобы проще было :)
Answers & Comments
var a: integer;
begin
write ('Введите целое число: ');
readln(a);
if a = 0 then writeln ('ноль') {если введённое число равно 0, то вывести соответствующее сообщение}
else if a = 1 then {иначе если данное число равно 1, то вывести соответствующее сообщение}
writeln ('один')
else if a = 2 then writeln ('2') {иначе если данное число-2, то вывести соответствующее сообщение}
else writeln ('неизвестное число'); {иначе число незивестное}
readln
end.
var a,b: integer;
begin
write ('Введите число: ');
readln(a);
write ('Введите число: ');
readln(b);
if a > b then writeln ('a>b')
else if a<b then
writeln ('b>a')
end.