// PascalABC.Net 3.0, сборка 1066 var s,s1:string; i:integer; a:char; begin Write('Введите натуральное число любой длины :'); Readln(s); Write('Введите цифру, которую надо удалить: '); Readln(a); s1:=''; for i:=1 to Length(s) do if s[i]<>a then s1:=s1+s[i]; Writeln('Результат: ',s1) end.
Тестовый прогон: Введите натуральное число любой длины :3141592653589793 Введите цифру, которую надо удалить: 5 Результат: 3141926389793
2. Современное решение (так в школе почему-то не учат)
// PascalABC.Net 3.0, сборка 1066 begin var s:=ReadString('Введите натуральное число любой длины :'); var a:=ReadChar('Введите цифру, которую надо удалить: '); Write('Результат: ',s.Replace(a,'')); end.
Var a, b: array[1..10] of integer; i, min, max, sum: integer; begin min := 10; for i := 1 to 10 do begin write('Введите ',i,'-ый элемент первого массива '); Readln(a[i]); write('Введите ',i,'-ый элемент второго массива '); Readln(b[i]); if a[i] < min then min := a[i]; if b[i] > max then max := b[i]; end; for i := 1 to 10 do write(a[i], ' '); Writeln; for i := 1 to 10 do write(b[i], ' '); writeln; writeln('Минимальное первого массива ', min); writeln('Максимальное первого массива ', max); sum := min + max; for i := 1 to 10 do if (i mod 2) = 0 then a[i] := sum else b[i] := sum; for i := 1 to 10 do write(a[i], ' '); Writeln; for i := 1 to 10 do write(b[i], ' '); end.
Планирование
Объяснение:
Планирование — это разработка метода для создания или выполнения чего-либо для достижения цели.