1- написать программу, умеющую проверить положительно ли введённое число с клавиатуры. ...

Question

1- написать программу, умеющую проверить положительно ли введённое число с клавиатуры.
2- с клавиатуры введено 2 числа, вывести на экран.
3- ввести 5 чисел, вычислить и написать их сумму и произведение. И в ответе написать, что больше сумма или произведение.
4- с клавиатуры введено 3 числа. Найти наибольшее число.

Comments

Паскаль?

---

Да)

---

В 3 задании как нужно ввести числа. Через For или тупо 5 чисел?

---

Хорошо

---

Возможно

---

Все?

---

Щас напишу

Answer 1

1)
VAR A: integer; B: string;BEGINB:=('Число отрицательно.');READLN(A);IF A>0 THENB:=('Число положительное.');writeln(B);end.
2)
VAR A,B: integer;BEGINREADLN(A);READLN(B);WRITELN('1 число: ',A);WRITELN('2 число: ',B);END
3)
VAR a,b,c,d,e,t,y: integer;BEGINreadln(a);readln(b);readln(c);readln(d);readln(e);t:=a+b+c+d+e;y:=a*b*c*d*e;writeln(t);writeln(y);END.
4)
var a,b,c: integer;beginwrite('1 число: ');readln(a);write('2 число: ');readln(b);write('3 число: ');readln(c);write('Наибольшое из введёных чисел: ');if (a>b) and (a>c) thenwriteln(a)elseif (b>a) and (b>c) thenwriteln(b)elsewriteln(c);end.
Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.

Comments

Спасибо

---

С чем?

---

Можешь ещё помочь?

---

15)

---

16

---

Сколько лет?

---

Нез =)

---

Оки)

---

Вообщем, где ";" там перенеси на новую строчку и всё будет работать.

---

Все уже