Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! с помощью функций div и mod
10-11 класс
|
program lol;
var a,b,c,g,d:integer;
begin
a:=random(999)+ 100;
writeln(a);
b:= a div 100;{1}
c:= a mod 10; {3}
g:= a mod 100;
d:= g div 10;{2}
writeln('Число',a);
writeln( b,',' , d,',', c);
readln;
end.
Другие вопросы из категории
массиве A[n] записаны оценки экзаменующихся , полученные на первом экзамене . Подсчитать , сколько человек не допущено ко второму экзамену .
Задача 2
В одномерном массиве , состоящем из n вещественных элементов , вычислить ;
1) минимальный элемент массива;
2)сумму элементов массива , расположенных между первым и последним положительными элементами .
Преобразовать массив таким образом , чтобы сначала располагать все элементы , равные нулю, а потом-все остальные .
работает в режиме 320 x400 пикселей. Какое максимальное
количество цветов может содержать палитра?
А) да, но только если ячейка содержит формулу с абсолютной ссылкой
Б. Нет
В.да, любую ячейку с любыми йормулами
Г. Да, но только, если ячейка содержит формулу относительной ссылкой
Читайте также
троичной системе счисления оканчивается на 21?
2) укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 45, запись кторых в двоичной системе счисления оканчивается на 1010?
3) Укажите сколько всего раз встретится цифра 3 в записи чисел 13, 14,15,...,23 в системе счисления с основанием 4?
Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 19 оканчивается на 4.
№3. Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 27 оканчивается на 3.
1.Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен случайному двузначному числу;
2-й равен целой части от деления случайного трехзначного числа на его индекс;
3-й равен остатку от деления случайного двузначного числа на 10.
2.
разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)