
Вопрос задан 27.02.2021 в 11:55.
Предмет Информатика.
Спрашивает Зобнин Игорь.
Составить программы для заданий 3 – 5 3. Найти сумму чётных чисел из натурального ряда от 1 до
1000?4. Дано Nчисел. Написать программу, находящую номер самого большого числа. 5. В кассе имеются купюры достоинством в К рублей и 1 рубль. Выдать N рублей минимальным набором купюр заданного достоинства.Помогите кому не сложно (

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

Отвечает Алеев Рустам.
3.
Var S,i:integer;
Begin
S:=0;
For i:= 1 to 1000 do
if i mod 2 = 0 then S:=S+i;
WriteLn('S = ',S)
End.
Результат работы программы:
S = 250500
4.
Var
N,A,i,Max:integer;
Begin
Write('N = ');ReadLn(N);
Write('Введите целые числа(',N,' шт.):');
Read(Max);
i:=1;
For N:= 2 to N do
Begin
Read(A);
if A > Max then
Begin
Max:=A;
i:=N
End;
End;
WriteLn('Максимум: ',Max);
WriteLn('Номер максимума: ',i);
End.
Пример работы программы:
N = 7
Введите целые числа(7 шт.):1 2 3 5 9 4 7
Максимум: 9
Номер максимума: 5
5.
Var K,N:integer;
Begin
Write('K = ');ReadLn(K);
Write('N = ');ReadLn(N);
WriteLn('Количество купюр по ',K,' руб.: ',N div K);
WriteLn('Количество купюр по 1 рублю: ',N mod K);
End.
Пример работы программы:
K = 38
N = 3000
Количество купюр по 38 руб.: 78
Количество купюр по 1 рублю: 36
Var S,i:integer;
Begin
S:=0;
For i:= 1 to 1000 do
if i mod 2 = 0 then S:=S+i;
WriteLn('S = ',S)
End.
Результат работы программы:
S = 250500
4.
Var
N,A,i,Max:integer;
Begin
Write('N = ');ReadLn(N);
Write('Введите целые числа(',N,' шт.):');
Read(Max);
i:=1;
For N:= 2 to N do
Begin
Read(A);
if A > Max then
Begin
Max:=A;
i:=N
End;
End;
WriteLn('Максимум: ',Max);
WriteLn('Номер максимума: ',i);
End.
Пример работы программы:
N = 7
Введите целые числа(7 шт.):1 2 3 5 9 4 7
Максимум: 9
Номер максимума: 5
5.
Var K,N:integer;
Begin
Write('K = ');ReadLn(K);
Write('N = ');ReadLn(N);
WriteLn('Количество купюр по ',K,' руб.: ',N div K);
WriteLn('Количество купюр по 1 рублю: ',N mod K);
End.
Пример работы программы:
K = 38
N = 3000
Количество купюр по 38 руб.: 78
Количество купюр по 1 рублю: 36



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я могу помочь вам составить программы для этих задач. Вот программы на языке Python для каждой из трех задач:
Задание 3: Найти сумму чётных чисел из натурального ряда от 1 до 1000.
pythonsum_even = 0
for num in range(1, 1001):
if num % 2 == 0:
sum_even += num
print("Сумма чётных чисел от 1 до 1000:", sum_even)
Задание 4: Дано N чисел. Написать программу, находящую номер самого большого числа.
pythonn = int(input("Введите количество чисел: "))
max_number = float('-inf')
max_index = -1
for i in range(n):
number = float(input("Введите число: "))
if number > max_number:
max_number = number
max_index = i + 1
print("Номер самого большого числа:", max_index)
Задание 5: В кассе имеются купюры достоинством в К рублей и 1 рубль. Выдать N рублей минимальным набором купюр заданного достоинства.
pythonK = int(input("Введите достоинство купюры: "))
N = int(input("Введите сумму для выдачи: "))
kupury_K = N // K
kupury_1 = N % K
print("Минимальный набор купюр:")
print(f"Купюр достоинством {K} рублей: {kupury_K} шт.")
print("Купюр достоинством 1 рубль:", kupury_1, "шт.")
Надеюсь, эти программы помогут вам решить данные задачи! Если у вас возникнут вопросы, пожалуйста, сообщите.


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

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

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

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

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

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

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

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