сервис вопросов и ответовсоставьте программу в Pascal ABC которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150.Спасибо заранее
10-11 класс|
|
цавиы
12 июля 2013 г., 3:36:56 (10 лет назад)
KUSHNERENKO
12 июля 2013 г., 5:40:18 (10 лет назад)
program summa;
uses crt;
var
I:integer;
begin
summ:=0;
for I:=2 to 150 do begin
if ((I mod 2 = 0) and (I mod 13 = 0)) then writeln (I) end;
end.
Ответить
Другие вопросы из категории
Два друга - Иван и Дима - вместе используют канал доступа в Internet с пропускной способностью 4 Кбайт в секунду. Система балансировки нагрузки настроена
таким образом, что если в данный момент времени канал использует только один человек, то скачивание файла происходит со скоростью равной пропускной способности канала, а если канал используют оба человека - пропускная способность канала поровну делится между пользователями. Иван начал скачивать музыкальную композицию. Через 16 секунд Дима начал скачивать графический файл. Иван закончил скачивать музыкальную композицию через 1 минуту 8 секунд от начала скачивания своего файла. Для музыкальной композиции производится одноканальная (моно) звукозапись с частотой дискретизации 128 Гц. При записи использовались 16 уровней дискретизации. Графический файл содержал 16384 пикселей, кодированных с использованием палитры из 256 цветов. И в файле с музыкальной композицией и в графическом файле не использовалось сжатие данных. Кроме упомянутых скачиваемых файлов другой нагрузки на канал доступа в Internet не было. Сколько секунд длится музыкальная композиция, которую скачал Иван?
Помогитеее, сроооочно
С помощью операционной системы или программ-утилит определить значения заданных характеристик компьютера (должно быть задано не менее трех характеристик).
Создать программу вычисления доходов по вкладу. Исходным данным является
1)величина вклада
2)срок вклада
3)процентная вставка
Исходные данные вводятся с клавиатуры. Формула для расчет дохода по вкладу =( величина вклада * процентная вставка / 100) / 365 * срок вклада
Программа:
Сколько различных решений имеет уравнение
((K*L*M)+(не L*не M*N))=1
Читайте также
1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
1. Написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Помогите пожалуйста!! ) составить программу в "Pascal abc"!!)
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
эллементы массива вычисляются по формуле A(X,Y)=2X^2-Y^2 написать программу, которая выводит на экран значения элементов массива А(2,2).
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
Написать программу, которая считает и выводит на экран сумму всех целых чисел из промежутка [A, B]. Числа A и B задает пользователь.
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5
Вы находитесь на странице вопроса "составьте программу в Pascal ABC которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150.Спасибо заранее", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.