Задать вопрос на языке Pascal: в записи каких трёхзначных чисел присутствует цифра 9?
10-11 класс
|
program n;
var a,b,c,d:integer;
begin
writeln('Введите трехзначное число');
readln(d);
a:=dmod10;
d:=ddiv10;
b:=dmod10;
c:=ddiv10;
if adiv9=1 then
writeln('da');
if bdiv9=1
then writeln('da');
if cdiv9=1 then writeln('da') else writeln('no');
end.
(проверь ее)
программу написать или только основное действие?
Другие вопросы из категории
В одномерном массиве из N чисел вывести на экран положительные элементы и сообщение об их количестве.Помогите пожалуйста!
цифры и 12 различных символов местного алфавита, причем все буквы используются в двух начертаниях – строчные и прописные. Каждый символ кодируется одинаковым и минимально возможным количеством бит, а каждый пароль – одинаковым и минимально возможным количеством байт. Определите объем памяти, необходимый для хранения 60 паролей.
Читайте также
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
попала точка с координатами (x,y). Переменной N
присвоить номер четверти. Если точка попала в начало
координат, то N=0. Если точка попала на ось X или Y, то
напечатать сообщение об этом.
формул языка Pascal сделать так, чтобы случайные числа выпадали в интервале (a;b)
С помощью ПК произвести обработку одномерного массива, заданного
в таблице. Элементы одномерного массива задать числами в диапазоне
– 20 . . . +50. Необходимо:
описать массив
ввести элементы массива из заданного диапазона;
выполнить с элементами массива действия
вывести результаты на экран.
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.