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;

Answer 2

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

Answer 3

Easy)

Answer 4

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

Answer 5

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

Answer 6

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