Регистрация
роман507
27.01.2023 17:24
Информатика
Есть ответ 👍

С(паскаль) вычислить отношение количества цифры 5 к количеству цифры 1 (если цифры 1 нет, результат не вычислять)

177
206
Посмотреть ответы 2

Ответы на вопрос:

Azalia1324
Azalia1324
4,5(9 оценок)
Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n: =readlnstring('введите натуральное число: ');

  var r: biginteger;

  if not biginteger.tryparse(n,r) then

    print('некорректная запись')

  else

  begin

    var k5: =n.where(c-> c='5').count;

    var k1: =n.where(c-> c='1').count;

    if k1> 0 then print(k5/k1)

  end

end.

пример

введите натуральное число: 23476587043021143411395684657323634254554

1.5

pughluy
pughluy
4,4(22 оценок)
Вот программас использованием файлов program proizvedenie; uses crt; var a: array[1..1000] of real;     amax,amin,p: real;     i,n,i1,i2: integer;     inp,outp: text; begin assign(inp,'input.txt'); assign(outp,'output.txt'); readln(n); p: =1; reset(inp); for i: =1 to n do read(inp,a[i]); close(inp); amin: =a[1]; for i: =1 to n do if abs(amin)> =abs(a[i]) then begin amin: =a[i]; i1: =i; end; amax: =a[1]; for i: =1 to n do if abs(amax)< =abs(a[i]) then begin amax: =a[i]; i2: =i; end; if (i2> i1) and (i1+1< > i2)  then for i: =i1+1 to i2-1 do p: =p*a[i] else if (i1> i2) and (i1-1< > i2) then for i: =i1-1 downto i2+1 do p: =p*a[i] else begin write(0); exit; end; rewrite(outp); write(outp,p); close(outp); end.без файловprogram proizvedenie; uses crt; var a: array[1..1000] of real;       amax,amin,p: real;     i,n,i1,i2: integer; beginp: =1; readln(n); for i: =1 to n doread(a[i]); amin: =a[1]; for i: =1 to n doif abs(amin)> =abs(a[i]) then begin amin: =a[i]; i1: =i; end; amax: =a[1]; for i: =1 to n doif abs(amax)< =abs(a[i]) then begin amax: =a[i]; i2: =i; end; if (i2> i1) and (i1+1< > i2) then for i: =i1+1 to i2-1 dop: =p*a[i] elseif (i1> i2) and (i1-1< > i2) then for i: =i1-1 downto i2+1 dop: =p*a[i] else beginwrite(0); exit; end; write(p); end.ошибки: 1)в разделе описания переменных var нет файловых переменных input и output; 2)в строке 24 нет ; 3)сравнивать нужно модули  переменных amin и amax с модулем a[i]; +++много лишних переменных

Популярно: Информатика