Есть ответ 👍

Составить программу определяющую "с"колько букв с в данном слове

262
414
Посмотреть ответы 2

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


Вот программа (короче я не понял ваше условие - там какие то с в кавычках, с без uses crt; var s: string;         i, len, sum: integer; begin   clrscr;   write(' slovo = ');   readln(s);   len: =length(s);   for i: =1 to len do       if s[i]='c' then           sum: =sum+1;   writeln(' colichestwo  c = ', sum); readln; end.

a = int(input('Число: '))

s = 0 # здесь будет произведение

for i in list(str(a)): # превратил введённое число в строку, и эту строку сделал списком.

   if int(i)>3:

       if not(s): s+=1

       s *= i # проверяю больше ли число i 3-х, если да то умножаю s на него

print("Произведение цифр введённого числа =", s)

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