Program n1; var st: string; i,c: longint; b: boolean; procedure numdig(st: string; x: char); var i,k: longint; t: string; begin t:=''; k := 0; for i := 1 to length(st) do begin if st[i] = x then k := k + 1; end; if(k<>0) and (k<>1) then begin if(k=2) or (k=3) or (k=4) then t:='а'; writeln('цифра ',x,' повторяется ',k,' раз',t); c:=c+1; end end; begin c:=0; write('введите число: '); read(i); str(i, st); numdig(st,'0'); numdig(st,'1'); numdig(st,'2'); numdig(st,'3'); numdig(st,'4'); numdig(st,'5'); numdig(st,'6'); numdig(st,'7'); numdig(st,'8'); numdig(st,'9'); if c=0 then writeln('цифры не повторяются'); end.
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString; Writeln(s.Inverse) end.
Пример Я пишу программу на языке Паскаль ьлаксаП екызя ан уммаргорп ушип Я
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите строку:'); Write('Введите два символа СЛИТНО для сравнения их частоты: '); var ab:string; Readln(ab); var a:=ab[1]; var b:=ab[2]; var ka:=0; var kb:=0; for var i:=1 to s.Length do if s[i]=a then ka+=1 else if s[i]=b then kb+=1; if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b) else if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b) else if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково') else Writeln('Символы ',a,' и ',b,' отсутствуют') end.
Пример Введите строку: а роза упала на лапу азора Введите два символа СЛИТНО для сравнения их частоты: ао Символ а встречается чаще, чем о
