
Вопрос задан 16.07.2023 в 22:29.
Предмет Информатика.
Спрашивает Братский Гена.
1.Напишите программу которая вычисляет произведение чисел от 1 до 20 оператор for 2.Напишите
программу в которой осуществляется ввод целых чисел(ввод прекращается если введен 0) и подсчитывается количество введеных чисел for или while оператор 3.Напишите программу в которой осуществляется ввод целых чисел(ввод прекращается если введен 0) и подсчитывается сумма введеных четных чисел for или while

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

Отвечает Менский Лёша.
===== PascalABC.NET =====
// 1
begin
var p: int64 := 1;
for var i := 2 to 20 do
p *= i;
Println(p)
end.
//2
begin
var (k, d) := (0, 1);
while d <> 0 do
begin
Read(d);
if d <> 0 then
k += 1
end;
Println(k);
end.
// 3
begin
var (s, d) := (0, 1);
while d <> 0 do
begin
Read(d);
if d.IsEven then
s += d
end;
Println(s);
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно! Вот решения для трех задач на языке Python:
- Программа для вычисления произведения чисел от 1 до 20 с использованием оператора
for
:
pythonproduct = 1
for i in range(1, 21):
product *= i
print("Произведение чисел от 1 до 20:", product)
- Программа для подсчета количества введенных чисел с использованием оператора
while
:
pythoncount = 0
number = int(input("Введите число (0 для выхода): "))
while number != 0:
count += 1
number = int(input("Введите число (0 для выхода): "))
print("Количество введенных чисел:", count)
- Программа для подсчета суммы введенных четных чисел с использованием оператора
for
:
pythonsum_even = 0
number = int(input("Введите число (0 для выхода): "))
while number != 0:
if number % 2 == 0:
sum_even += number
number = int(input("Введите число (0 для выхода): "))
print("Сумма введенных четных чисел:", sum_even)
Надеюсь, это поможет! Если у вас возникнут вопросы, не стесняйтесь задавать.


Похожие вопросы
Топ вопросов за вчера в категории Информатика

Информатика 572

Информатика 1113

Информатика 10

Информатика 32

Информатика 16

Информатика 578

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