Даша: Спасибо:3
31-05-2023
Читать статью
Санечка: я ничего не учила) но буду надеятся что ..
30-05-2023
Мейнер Сяо: Удачи всем сегодня на экзамене ;)..
Сегодня разберём нестандартные задачи из 15 задания ОГЭ по информатике. В этих задачках последовательность чисел будет заканчивается нулём.
Будем решать на языке Паскаль.
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО всех чисел, КРАТНЫХ 6 и ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 2. Программа получает на вход натуральные числа, КОЛИЧЕСТВО ВВЕДЁННЫХ ЧИСЕЛ НЕИЗВЕСТНО, ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ ОКАНЧИВАЕТСЯ ЧИСЛОМ 0. (0 – признак окончания последовательности, не входит в последовательность)
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - КОЛИЧЕСТВО всех чисел, КРАТНЫХ 6 и ОКАНЧИВАЮЩИХСЯ на 2.
Заводим две переменные: а – переменная для чисел, quantity – переменная для результата.
В начале количество равно нулю. Запрашиваем число a. Далее, используем ЦИКЛ с предусловием (WHILE). Цикл будет работать до тех пор, пока число a не равно нулю.
Внутри цикла число a проверяется на условие задачи. Чтобы число засчитать, оно должно быть кратно 6 (остаток от деления на 6 должен быть равен 0), И это число должно оканчивается на 2 (остаток от деления на 10 должен быть равен 2).
Если число подходит, к переменной quantity прибавляем 1.
Поле этого в цикле запрашиваем очередное число a из последовательности.
Как только, мы получили в последовательности 0 – программа выходит из ЦИКЛА (WHILE), и распечатывает ответ.
var a, quantity: integer; begin quantity:=0; Readln(a); while a <> 0 do begin if (a mod 6 = 0 ) and (a mod 10 = 2) then quantity := quantity + 1; Readln(a); end; Writeln(quantity); end.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ всех чисел, КРАТНЫХ 10 и БОЛЬШИХ 100. В последовательности всегда имеется число, кратное 10 и большее 100. Программа получает на вход натуральные числа, КОЛИЧЕСТВО ВВЕДЁННЫХ ЧИСЕЛ НЕИЗВЕСТНО, ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ ОКАНЧИВАЕТСЯ ЧИСЛОМ 0. (0 – признак окончания последовательности, не входит в последовательность)
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - СУММУ всех чисел, кратных 10 и БОЛЬШИХ 100.
Заводим две переменные: а – переменная для чисел, sum – переменная для результата.
В начале сумма равна нулю. Запрашиваем число a. Далее, используем ЦИКЛ с предусловием (WHILE). Цикл будет работать до тех пор, пока число a не равно нулю.
Внутри цикла число a проверяется на условие задачи. Чтобы число просуммировать, оно должно быть кратно 10 (остаток от деления на 10 должен быть равен 0), И это число должно быть больше 100.
Если число подходит, к переменной sum суммируем элемент a.
var a, sum: integer; begin sum:=0; Readln(a); while a <> 0 do begin if (a mod 10 = 0) and (a>100) then sum := sum + a; Readln(a); end; writeln(sum); end.
Напишите программу, которая в последовательности натуральных чисел определяет МИНИМАЛЬНОЕ нечётное число БОЛЬШЕЕ 50. В последовательности всегда имеется нечётное число большее 50. Программа получает на вход натуральные числа, КОЛИЧЕСТВО ВВЕДЁННЫХ ЧИСЕЛ НЕИЗВЕСТНО, ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ ОКАНЧИВАЕТСЯ ЧИСЛОМ 0. (0 – признак окончания последовательности, не входит в последовательность)
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - МИНИМАЛЬНОЕ нечётное число БОЛЬШЕЕ 50.
Заводим две переменные: а – переменная для чисел, min – переменная для результата.
В начале переменная min равна самому большому значению, чтобы его можно было легко победить. Запрашиваем число a. Далее, используем ЦИКЛ с предусловием (WHILE). Цикл будет работать до тех пор, пока число a не равно нулю.
Внутри цикла число a проверяется на условие задачи. Чтобы число могло претендовать на минимальность, оно должно быть нечётное (остаток от деления на 2 должен быть равен 1), И это число должно быть больше 50.
В условии так же дописываем: если очередной элемент a меньше, чем переменная min, то переменная a становится минимальным значением.
var a, min: integer; begin min:=30000; Readln(a); while a <> 0 do begin if (a mod 2 = 1) and (a > 50) and (a < min) then min := a; Readln(a); end; Writeln(min); end.
Успехов на экзамене по информатике!