Напишите программу которая вводит последовательность целых чисел заканчивающихся нулем и...

Question

Напишите программу которая вводит последовательность целых чисел заканчивающихся нулем и определяет является ли она возрастающей

Answer 1

Var
max:integer;
new:integer;
begin
while true do
begin
max:=-1;
readln(new);
if new mod 10 = 0 thne
begin
if new>max then
begin
writeln('Данное число больше предыдущего');
end else
begin
writeln('Число меньше или равно предыдущему');
end;
max:=new;
end else writeln('Число не заканчивается на 0');
end;
end;

Comments

1 зада правильная,большое спасибо просто нужно описать что делает это программа поэтапно хотя бы несколько строчек из программы

---

if new mod 10 = 0 thne
begin
if new>max then что это делает ?

---

2 задача не для вас)

---

переменная new это новое число которое мы задаём программе, а переменная max это наше предыдущие число

---

спасибо большое

---

Написать программу которая удаляет 3слово в предложении

---

Easy)

---

Тут дырявая система добавления программного кода, поэтому вот сразу исходник, его я уже тестировал)) https://yadi.sk/d/p6xBLX5Bj5cfY

---

Это не вирус как это простой .pas файл)

---

не открывается