Задача в Паскаль.Операторы IF-elseПросто составить,запутался в операторах

Question

Задача в Паскаль.Операторы IF-else
Просто составить,запутался в операторах

Comments

какая задача?

Answer 1

Program 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.

Comments

Много лишнего

---

можно сократить до минимума

---

Program N;
var a,b: integer;
begin
write ('Введите число: ');
readln(a);
write ('Введите число: ');
readln(b);
if a > b then writeln ('a>b')
else if awriteln ('b>a')
end.

---

я знаю, просто привела такой пример, чтобы проще было :)

---

Спасибо)