Задания на PascalABC. Опишите как можно подробнее ход решения. №1. Дан одномерный целочисленный массив.
10-11 класс
|
Определить количество чисел, кратных 5.
1) Program z1;
var a: array [1..1000] of integer;
n, c, i: integer;
begin
readln(n);
c := 0;
for i := 1 to n do readln(a[i]);
for i := 1 to n do if (a[i] mod 5 = 0) then inc(c);
writeln(c);
readln;
end.
3)
Другие вопросы из категории
элемент положителен - увеличьте в 2раза, если отрицателен - заменить на 0.
Заранее спасибо! Пишите подробную задачу для программы Паскаль. Не забудьте пунктуацию.
ввода – ввод числа 0."
Читайте также
2)Получить шестнадцатеричную форму внутреннего представления целого числа в 2-х
байтовой ячейке.(ход решения)
а) 1305
б) -1305
3) Чёрно-белая фотография разбита на точки,каждая из которых кодируется пятью битами информации,каков информационный объём фотографии 10х15 см,если 1 квадратный сантиметр содержит 1600 точек? (ход решения)
2. Составить задание на разработку программы на разветвляющиеся структуры в QBASIC
3. Составить задание на разработку программы циклической структуры в QBASIC
Нужно задание + сама программа
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
живых гусей, уток и кур, чтобы выручить как можно больше денег, если она может взять товара массой не более 50
рабочего листа. Количество элементов заранее неизвестно.
Сформировать из элементов заданного массива чисел новый той же размерности по правилу: Xj = Yj + j.
Нужно сделать в Excel VBA
Помогите пожалуйста