Из шестизначного числа выделить цифры и из них сформировать одномерный массив. Pascal
10-11 класс
|
var a:longint;
b: array[1..6] of integer;
i:integer;
begin
readln(a);
for i:=6 downto 1 do
begin
b[i]:=a mod 10;
a:=a div 10;
end;
{вывод массива}
for i:=1 to 6 do
writeln(b[i]);
end.
Другие вопросы из категории
общими для всей подсети – в этих разрядах маски стоит 1. Обычно маски записываются в виде четверки десятичных чисел - по тем же правилам, что и IP‑адреса.
Для некоторой подсети используется маска 255.255.254.0.
Сколько различных адресов компьютеров теоретически допускает эта маска?
Примечание. На практике используются не все из этих адресов. Например, как правило, не используются IP‑адреса, в десятичном представлении которых последнее (самое правое) число равно 0.
кодировка символов осуществляется в unicode )?
Читайте также
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.