М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
animator351
animator351
04.06.2021 04:01 •  Информатика

Дана строка. среди символов встречаются цифры. написать программу, вычисляющую сумму всех цифр

👇
Ответ:
ert12375
ert12375
04.06.2021
Var
  digits: set of '0'..'9';
  s: string;
  i, p, d, err: integer;

begin
  digits := ['0'..'9'];
  Write('Введите строку: '); Readln(s);
  p := 0;
  for i := 1 to Length(s) do
    if (s[i] in digits) then
    begin Val(s[i], d, err); p := p + d end;
  Writeln('Сумма цифр равна ', p)
end.

Тестовое решение:
Введите строку: Сегодня 17 декабря 2014г. Находим сумму 7 цифр их этой строки.
Сумма цифр равна 22
4,6(66 оценок)
Открыть все ответы
Ответ:
stashea
stashea
04.06.2021

14.9 (равнобедренные трапеции (с комментариями)):

#S=1/2h(a+b)

print ('Введите первое основание для первой трапеции')

af=int(input()) # Первое основание первой

print('Введите второе основание для первой трапеции')

bf=int(input()) # Второе основание первой

print('Введите высоту для первой трапеции')

hf=int(input()) # Высота первой

print ('Введите первое основание для второй трапеции')

aas=int(input()) # Первое основание второй

print ('Введите второе основание для второй трапеции')

bs=int(input()) # Второе основание второй

print ('Введите высоту для второй трапеции')

hs=int(input()) # Высота второй

pf=(af+bf)+af-bf)/2)**2+hf**2)**0.5)*2 #Периметр первой

ps=(aas+bs)+aas-bs)/2)**2+hs**2)**0.5)*2 #Периметр второй

sf=(af+bf)*hf/2 # Площадь первой

ss=(aas+bs)*hs/2 #Площадь второй

print ('Сумма периметров=', pf+ps)

print ('Сумма площадей=', sf+ss)

14.23 (Трехзначные простые числа):

for a in range (100,1000):

   b=0

   for i in range (2,a):

       if a%i==0:

           b+=1

   if b==0:

       print(a)

P.S: Вставлено из среды разработки, проверку на компиляторе программы

4,7(63 оценок)
Ответ:
Lera096811hk
Lera096811hk
04.06.2021

С большой коллекцией DVD-дисков нам обычно трудно управлять и хранить из-за таких причин, как страх поцарапаться, потерять и т. Д. Таким образом, оцифровка DVD на жесткий диск становится хорошим сохранить фильм DVD. Помимо этого, у вас могут быть другие требования для копирования DVD-дисков. Например, сначала сохраните фильм DVD на жестком диске, затем скопируйте или передайте его на другое устройство или загрузить DVD клипы на YouTube.

Независимо от того, что требует, чтобы вы скопировали DVD на жесткий диск, вы не можете пропустить это простое руководство. Сегодня мы покажем вам, как копировать DVD на жесткий диск с простых шагов 4. Продолжайте читать, мы опишем операции как можно подробнее

4,6(95 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ