На паскале. в текстовый файл t1 записана последовательность целых чисел, разделенных пробелами. написать программу, записывающую в текстовый файл t2 все положительные числа из t1.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ReadAllLines('int.txt').JoinIntoString.ToIntegers;
  Print('Прочитано'); a.Println;
  var b:=a.Where(x->x>0);
  Print('Отобрано'); b.Println;
  var f:=OpenWrite('out.txt');
  foreach var e in b do Write(f,e,' ');
  f.Close
end.

Тестовое решение:
Прочитано -5 8 -3 -2 0 -6 4 9 0 0 4 -4 -1 0 -1 3 6 7 1 8 0 2 -5 -2 9
Отобрано 8 4 9 4 3 6 7 1 8 2 9

Двигаемся в обратном направлении. Поскольку команда "Сместиться на (−4, −12)" вернула Чертёжника в исходную точку, то за верхний цикл он сместился на (4, 12).

У нас известны две команды из этого цикла, и за 4 повторения они вместе переместят его на Стоит отметить, что порядок, в котором стоят данные команды, неважен. После выполнения двух последних команд Чертёжник переместился на , и чтобы переместиться из этой в его последнюю точку перед возвращением, а именно , ему нужно смещение на . Но так как цикл был повторён 4 раза, то искомая команда: . Данной команде соответствует ответ 4.

ответ: 4.

a = input("Введите длину стороны a: ")

print(a)

b = input("Введите длину стороны b: ")

print(b)

c = input("Введите длину стороны c: ")

print(c)

if a==b==c:

print("Треугольник равносторонний.")

else:

print("Увы. Треугольник не равносторонний.")

print("")

number = "0"

while(len(number) != 2):

number = str(input("Введите двузначное число: "))

print(number)

n = "3"

if n in number:

print("Цифра 3 входит в состав этого двузначного числа.")

else:

print("Цифра 3 не входит в состав этого двузначного числа.")

Объяснение: