Информатика 5 класс Конспект по темам "Решение задач по заданным правилам" и "Решение путём логических рассуждений", во к темам письменно
196
315
Ответы на вопрос:
заменить в группах символов, состоящих только из цифр, все цифры предыдущими по значению цифрами, а '0' заменить на точку. например, строка: ‘ 6е-1 75 bа12 123‘ ; результат: ‘ 6е-1 64 bа12 012‘
code: #pascal uses crt; varbo,bb: boolean; b3,b2,sc,ss,b,s: string; t,p,cc,j,e,i,c: integer; begin clrscr; sc: ='0123456789'; writeln('vvedite stroku'); readln(s); s: =s+' '; c: =length(s); for i: =1 to c do begin b: =copy(s,i,1); if b< > ' ' then ss: =ss+b else begin cc: =length(ss); bo: =true; for j: =1 to cc do begin b2: =copy(ss,j,1); bb: =false; for t: =1 to 10 do begin b3: =copy(sc,t,1); if b3=b2 then bb: =true; end; if bb=false then bo: =false; end; if bo=true then begin for j: =1 to cc do begin b2: =copy(ss,j,1); val(b2,p,e); if p=0 then write('.') else write(p-1); end; write(' '); end else write(ss,' '); ss: =''; end; end; readkey; end.Популярно: Информатика
-
dasa220802.10.2022 13:34
-
lera10u30.09.2021 09:15
-
nasowmza10.02.2020 19:48
-
arisha2000300029.10.2022 12:05
-
кёрс2304.06.2023 16:21
-
rodoskinatanya18.12.2021 02:51
-
olesasumakova8ozf25j23.03.2021 01:02
-
fialka0814.03.2023 01:18
-
елена118114.02.2021 07:18
-
eruder30.07.2022 10:28