В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
arinaambrosova
arinaambrosova
02.11.2021 03:28 •  Информатика

напишите программу(Pascal), которая вычисляет произведение первых n членов ряда 1, ½, 1/3, ¼
Количество членов ряда задается во время работы программы (используя цикл с параметром).

Показать ответ
Ответ:
Олегнорм
Олегнорм
08.09.2021 11:50

1)

var

i,c:integer; //Объявляем переменные

mas: array [1..20] of integer; //Объявляем массив

begin

c:=0; //Обнуляем переменную c

writeln('20 случайных чисел:'); //выводим на экран сообщение

randomize; //запускам рандом

for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди

mas[i]:=random(5,20); //генерируем число от 5 до 20

if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2

c:=c+1; //то к переменной c прибавляем единицу (значит оно четное

end;

write(mas[i], ' '); //Выводим наш массив

end;

writeln(); //пробел между строк

writeln('Количество четных элементов = ', c); //выводим количество четных элементов  

end.

2)

var

i:integer; //Объявляем переменные

s:real; //Объявляем переменные

mas: array [1..10] of real; //Объявляем массив

begin

writeln('Введите 10 вещественных чисел'); //выводим на экран сообщение

for i:=1 to 10 do begin //запускаем цикл заполнения массива

read(mas[i]); //вводим число с клавиатуры

if mas[i] < 1 then //проверяем меньше ли единицы введенное число

s:=s+mas[i]; //если меньше,то прибавляем его в сумму (считаем сумму всех чисел, меньше 1, чтобы найти среднее арифметическое)

end;

s:=s/10; //Делим сумму на количество чисел  

writeln ('Среднее арифметическое = ',s);

end.

0,0(0 оценок)
Ответ:
demondru
demondru
25.07.2022 04:49

Python 3.7.2

x = int(input(), base = 10)

k3 = k5 = 0

for digit in map(int, list(str(x))):

   if digit is 3: k3 += 1

   elif digit is 5: k5 += 1  

#Что бы не городить огромные условные конструкции,

#Мы просто "выключим" программу при кривом вводе

if k3 == k5 == 0: raise RuntimeError('bad input')

#Если введённое число не имеет нужных цифр - вылетаем с ошибкой Runtime error и сообщаем об этом

print(f'цифр 5 больше, счётчики: k3: {k3}, k5: {k5}' if (k5 > k3) else f'цифр 3 больше, счётчики: k3: {k3}, k5: {k5}')

y = int('5'*k5 + '3'*k3)

y1 = y - 7

#Это можно засунуть в print(), но раз уж надо...

print(x, y, y1, end = '\n')

Объяснение:

На скриншотах представлены исходный код программы в рабочем виде, без поломанных отступов, а так же результат работы для предложенных входных данных. Если сильно надо программу просто скопировать, сдать и забыть, а отсюда не копируется - попросите в комментариях, я залью это на какой нибудь сервис типа pastebin.


Цикл for.Python С экрана вводится натуральное число произвольной длины. Назовите его x. Определите,
Цикл for.Python С экрана вводится натуральное число произвольной длины. Назовите его x. Определите,
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота