сервис вопросов и ответовПодсчитать количество целых среди чисел а, b, с. Составить программу.
10-11 класс|
|
Amirlan199523
02 сент. 2013 г., 8:45:26 (10 лет назад)
Titaim
02 сент. 2013 г., 9:29:43 (10 лет назад)
var
a, b, c:real;
count:integer;
begin
count := 0;
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if Frac(a) = 0 then
count := count + 1;
if Frac(b) = 0 then
count := count + 1;
if Frac(c) = 0 then
count := count + 1;
writeln('Целых чисел - ', count);
end.
Ответить
Другие вопросы из категории
Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
Паскаль.
Дана строка, содержащая слова, разделенные одним пробелом. Напечатать все слова, отличные от последнего слова.
Напишите программу для вычисления значений функции
F(x)={x^3-3x8 если х<=1
{1/(x^3-3x8) если х>1
В языке Pascal есть функция Pandom (a), которая служит для получения случайного ряда чисел из интервала (0;а). Вопрос: придумать, как можно при помощи
формул языка Pascal сделать так, чтобы случайные числа выпадали в интервале (a;b)
Поместиться ли на стандартном CD диске информация учебника по информатики.?
Объём СD = 720 мбайт
Символов в строке- 58
Строк на странице- 42
Страниц- 435
Читайте также
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом for. 2) Составьте программу,которая производит
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
1)Вывести в обратном порядке второе слово строки. Подсчитать количество букв в нем.
2) Составить программу для вычисления Т=(R/Q+1)+S. R - наименьший элемент массива;
Q - произведение элементов массива с нечетными номерами;
S - количество элементов, лежащих в интервале (A,B) (ввести с клавиатуры).
3) Вычислить среднее арифметическое положительных элементов матрицы, расположенных ниже
побочной диагонали. Закрасить указанные элементы.
Тема: "Построение циклических алгоритмов"
1)Для всех чисел от -5 до 60 найти и вывести их кубы.
2)Найдите сумму нечетных чисел 1 до 100.
3)Подсчитать количество всех четных чисел от -20 до 20
4)Для всех четных чисел от 10 до 78 найти и вывести значение функции y=5x^3-6x
Помогите!
Вы находитесь на странице вопроса "Подсчитать количество целых среди чисел а, b, с. Составить программу.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.