Предмет: Информатика,
автор: Meaw3
Паскаль
ЗАДАЧА 1
Найти и вывести на экран все чётные числа из промежутка от 30 до 48
ЗАДАЧА 2
Найти и вывести на экран числа кратные 3 из промежутка от 30 до 55
Ответы
Автор ответа:
0
Четный - нацело делится на 2, кратный трем - нацело делится на 3.
Самый простой алгоритм, который приходит в голову - дурацкий. Перебираем все числа и проверяем каждое, подходит ли оно. Гораздо проще взять первое подходящее число из заданного диапазона, а потом идти от него с шагом, равным 2 или 3 (смотря чему нужна кратность).
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
Range(30,48,2).Println; // 1-я задача
Range(30,55,3).Println // 2-я задача
end.
Результат
30 32 34 36 38 40 42 44 46 48
30 33 36 39 42 45 48 51 54
Самый простой алгоритм, который приходит в голову - дурацкий. Перебираем все числа и проверяем каждое, подходит ли оно. Гораздо проще взять первое подходящее число из заданного диапазона, а потом идти от него с шагом, равным 2 или 3 (смотря чему нужна кратность).
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
Range(30,48,2).Println; // 1-я задача
Range(30,55,3).Println // 2-я задача
end.
Результат
30 32 34 36 38 40 42 44 46 48
30 33 36 39 42 45 48 51 54
Похожие вопросы
Предмет: Геометрия,
автор: sabira162024
Предмет: Русский язык,
автор: savre7
Предмет: Геометрия,
автор: taydasha8
Предмет: Геометрия,
автор: alexooooon
Предмет: Биология,
автор: gilaieva