Задание нужно сделать в Паскале, помогите пожалуйста... Пусть дан текст из 80 литер. Напечатайте сначала все цифры, входящие в н
Задание нужно сделать в Паскале, помогите пожалуйста...
Пусть дан текст из 80 литер. Напечатайте сначала все цифры, входящие в него, а затем все остальные литеры, сохраняя при этом взаимное расположение литер в каждой из этих двух групп.
<em><u>Для сред программирования DOS (например, Turbo Pascal) удалите фигурные скобки, для сред Windows (например, PascalABC.Net) строки в фигурных скобках удалите полностью.</u></em> {uses Crt;} const n=80; digits=['0','1','2','3','4','5','6','7','8','9']; var s:string[80]; i:integer; begin {ClrScr;} Writeln('Введите текст (учитываются только 80 первых символов)'); Readln(s); for i:=1 to n do if s[i] in digits then Write(s[i]); Writeln; for i:=1 to n do if not(s[i] in digits) then Write(s[i]); Writeln; {ReadKey} end.
<em><u>Тестовое решение:</u></em> Введите текст (учитываются только 80 первых символов) Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км 5410444044004102 Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км
Program bbb var N,k:integer; begin writeln('введите число N'); readln(N); k=0; for 1 to N do begin; if k mod 5=0 then k:=k+1; writeln(k); end; end. Попробуй так должно получится, если не получается добавь переменную i в разделе var и вставь сюда (for i=1 to N do...)
Если ты забыл ключ то 2 варианта: 1. Ты все удаляешь с него через рекавети 2.Через fastboot ставим кастомное рекавети (twrp cwm), идём по пути /data/system/ и удаляем эти файлики:gesture.key,locksettings.db,locksettings.db-wal,locksettings.db-shm