Регистрация
masha90876
09.11.2020 08:22
Информатика
Есть ответ 👍

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.

234
311
Посмотреть ответы 3

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

medi8
medi8
4,7(57 оценок)
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.
ПростоМиха
ПростоМиха
4,6(10 оценок)

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.

Аниса2111
Аниса2111
4,5(58 оценок)

def f(x):#функция суммы цифр

   s=0

   while x>0:

      s+=x%10

      x//=10

   return s

a=[4,17,52,35]#твой условный массив

b=[]#новый массив с суммой цифр

for i in range(len(a)):

   b.append(f(a[i]))

b.sort()

print(b)

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