1)текстовая 2)графическая
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
1.
Program prim1;
Var x:integer;
Begin
x:= какое число или присваивания оператором readln(x)
if x>0 then x+1
writeln ('Полученное число :,x');
end.
Вроде так
Устройства ввода - периферийное оборудование, которое отвечает за ввод/вывод данных или сигналов в ПК или из ПК.
<em>Примеры устройств для ввода информации:</em>
Сканер, микрофон, клавиатура, плата видеозахвата, графический планшет, компьютерная мышь, джойстик.