Предмет: Информатика,
автор: kodert
Вариант 2.
нет
исел в
1. Напишите программу, которая в последовательности натуральных чисел определ
максимальное число, оканчивающееся на 7. Программа получает на вход количесі
последовательности, а затем сами числа. В последовательности всегда имеется число,
оканчивающееся на 7.
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 50 ооо.
2. Напишите программу, которая в последовательности натуральных чисел определяет сумму
чисел, оканчивающихся на 3. Программа получает на вход количество чисел в
последовательности, а затем сами числа.
3. Напишите программу, которая в последовательности натуральных чисел определяет количест
чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход количество чисел в
последовательности, а затем сами числа.
Ответы
Автор ответа:
1
Задание 1
- var
- i, N, inputNumber, max: integer;
- begin
- Write('Введите количество чисел: ');
- Readln(N);
- for i := 1 to N do
- begin
- Write('Введите число: ');
- Readln(inputNumber);
- if (inputNumber mod 10 = 7) then
- if (inputNumber > max) then
- max := inputNumber;
- end;
- if (max = 0) then
- Write('В последовательности нет чисел, оканчивающихся на 7')
- else Write('Максимальное число, оканчивающееся на 7: ', max);
- end.
Задание 2
- var
- i, N, inputNumber, sum: integer;
- begin
- Write('Введите количество чисел: ');
- Readln(N);
- for i := 1 to N do
- begin
- Write('Введите число: ');
- Readln(inputNumber);
- if (inputNumber mod 10 = 3) then
- sum := sum + inputNumber;
- end;
- if (sum = 0) then
- Write('В последовательности нет чисел, оканчивающихся на 3')
- else Write('Сумма чисел, оканчивающихся на 3: ', sum);
- end.
Задание 3
- var
- i, N, inputNumber, valueOfNumbers: integer;
- begin
- Write('Введите количество чисел: ');
- Readln(N);
- for i := 1 to N do
- begin
- Write('Введите число: ');
- Readln(inputNumber);
- if ((inputNumber mod 10 = 4) and (inputNumber mod 3 = 0)) then
- valueOfNumbers := valueOfNumbers + 1;
- end;
- if (valueOfNumbers = 0) then
- Write('В последовательности нет чисел, оканчивающихся на 4 и кратных 3-м')
- else Write('Сумма чисел, оканчивающихся на 4 и кратных 3-м: ', valueOfNumbers);
- end.
Похожие вопросы
Предмет: Алгебра,
автор: elvirausifova
Предмет: Информатика,
автор: sofitkachetserp
Предмет: Алгебра,
автор: Supergirl455
Предмет: Алгебра,
автор: Кисик2121
Предмет: Математика,
автор: brayan99999999