• Pascal. вводим числа пока не 0. Вывести в скольких из введённых чисел встретилась цифра 5.
    Написал программу, но не могу найти ошибку
    program m;
    var a,a1,s:integer;
    begin
    readln(a);
    while(a<>0)do
    begin
    a1:=(a mod 10);
    if (a1=5) then
    s:=s+1;
    a:=(a div 10);
    readln(a);
    end;
    writeln(s);
    end.

Ответы 6

  • "в скольких из введеных", ваша программа читает только одно число.
  • Разве? )
    • Автор:

      julius
    • 5 лет назад
    • 0
  • begin, readln(), while() ???
    • Автор:

      arellano
    • 5 лет назад
    • 0
  • И к чему это?
    • Автор:

      aldencabt
    • 5 лет назад
    • 0
  • var a,a1,s:integer;

    begin

    readln(a);

    while a<>0 do

    begin

    a1:=a;

    while a1>0 do

    begin

    if (a1 mod 10=5) then

    begin

    s:=s+1;

    a1:=0

    end;

    a1:=(a1 div 10)

    end;

    readln(a)

    end;

    writeln(s);

    end.

    • Автор:

      dummy
    • 5 лет назад
    • 0
  • var a, a1, s: Integer;begin a := 1; s := 0; while(a <> 0) do begin readln(a); a1 := a; while(a1 > 0) do begin if(a1 mod 10 = 5) then begin s := s + 1; a1 := 0; end; a1 := a1 div 10; end; end; writeln(s)end.
    • Автор:

      cobweb
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years