// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
Var n:integer;
begin
writeln('Введите n');
readln(n);
writeln((2+2*(n-1))*n/2);
end.
Высказывания: 1, 3, 4, 7, 8, 9, 10, 12
Истинно: 1, 3, 7, 8, 9, 10
a,b = map(int,input('Введите 2 числа: ').split())
c = 0
for i in range(a,b+1):
c += 1
print('Нужно сделать',c,'новых номерков')
Надоело при копировании из блокнота вручную ставить пробелы. Бред.