Даны целые числа K и N (N>0). Вывести N раз число K .
Задание №2
Даны два целых числа A и B (A A и B (включая сами числа A и B ), а также количество N этих чисел.
Задание №3
Даны два целых числа A и B (A A и B (не включая числа A и B ), а также количество N этих чисел.
Задание №4
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, . 10 кг конфет.
Задание №5
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, . 1 кг конфет.
Задание №6
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, . 2 кг конфет.
Задание №7
Даны два целых числа A и B (A A до B включительно.
Источник: program4you.ru
Задачи на циклы
В языке Паскаль существуют три цикла: for (цикл со счетчиком), while («пока») и repeat («повторить»). В задачах чаще всего используются первые два.
Решение задач на Pascal #6 | Цикл While
- Вывод квадратов натуральных чисел
- Кубы чисел от A до B
- Возведение числа в степень
- Составьте таблицу значений функции
- Вычисление факториала числа
- Числа Фибоначчи
- Проверка гипотезы Сиракуз
- Извлечение цифр числа
- Найти сумму четных цифр числа
- Посчитать четные и нечетные цифры числа
- Сумма и произведение цифр числа
- Определить, какая цифра числа больше
- Сумма первой и последней цифр числа
- «Переворот» числа
- Найти одинаковые цифры двух чисел
- Удалить цифру из числа
- Определить количество простых чисел
- Вывести делители чисел
- Совершенные числа
- Вычисление сумм различных рядов чисел
- Вывод на экран таблицы ASCII
- Таблица умножения на Паскале
- Комбинации из трех чисел, дающие в сумме заданное число
- Решение системы уравнений
- Простейший калькулятор
- Программа «Угадай число»
Источник: pas1.ru
Решу Паскаль
В этой публикации рассмотрим решение некоторых задач по теме «Циклический алгоритм».
Задача 1. С клавиатуры вводится N натуральных чисел. Найти количество чисел, оканчивающихся на 3.
Как будем решать задачу
Воспользуемся оператором цикла с счетчиком для ввода N чисел.
Чтобы узнать, оканчивается ли число на 3, воспользуемся операцией mod (целый остаток от деления).
Пусть число a=463.
Последнюю цифру вычислим так: a mod 10.
Действительно, 463 mod 10 равно 3.
Будем копить количество чисел (переменная p), оканчивающихся на 3, оператором:
if a mod 10 = 3 then p:=p+1;
Программа решения задачи на языке Паскаль
Цикл FOR в Pascal
var k, N, p, a:integer;
writeln(‘Введите количество чисел N ‘);
writeln(‘Введите натуральное число ‘);
if a mod 10 = 3 then p:=p+1;
writeln(‘Количество чисел, оканчивающихся на 3 равно ‘,p);
Результат запуска программы
А что, если бы числа были не натуральные, а целые (как отрицательные, так и положительные), изменилось бы условие в операторе if?
Задача 2. С клавиатуры вводится N целых чисел. Найти среднее арифметическое двузначных чисел.
Как будем решать задачу
Воспользуемся оператором цикла с счетчиком для ввода N чисел.
Как узнать двузначное перед нами число или нет. Приведем примеры целых двузначных чисел: 23, -34, -99, 55.
Таким образом, минимальное двузначное положительное число это 10, а максимальное 99.
Минимальное отрицательное двузначное число это -99, а максимальное -10.
Значит для проверки условия, является ли число двузначным, можно воспользоваться условием:
то есть число отрицательное двузначное или положительное двузначное.
Ранее в этом блоге мы рассматривали способы проверки такого условия. Читайте статью «Как проверить, является ли число двузначным».
Если число a двузначное, то будем копить сумму s и количество p таких чисел (будем использовать операторные скобки для объединения этих двух действий).
Программа решения задачи на языке Паскаль
var k, N, p, a, s:integer; sr:real;
writeln(‘Введите количество чисел N ‘);
writeln(‘Введите целое число ‘);
Источник: reshupascal.blogspot.com