Вы ввели трехзначное число?

Dudkams 15 сент. 2020 г., 19:55:09

Uses crt ; {модуль CRT, для красоты}

var x, y : integer ; {описание переменных}

begin

write('Введи трехзначное число : ') ; {вывод текста на экран}

readln(x) ; {Чтение данных}

write('Введи любую цифру : ') ; {Вывод текста на экран}

readln(y) ; {

Чтение данных}

if (x< ; 100) or (x> ; 999) or (y< ; 0) or (y> ; 9) {проверка условий}

then writeln('ERROR!

') {Вывод текста, если условие соблюдено}

else {Вариант, если в начале все числа введено верно} if (y = x div 100) or (y = x mod 10) or (y = x mod 100 div 10) then writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено} else writeln ('Такой цифры нет') ; {

Вывод текста, если условие несоблюдено}

end.

Wedoma 27 апр. 2020 г., 02:36:46 | 5 - 9 классы

1. Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом?

1. Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом.

2. Составьте программу, которая определяет, является ли последняя цифра введенного целого числа нечетным числом.

8 класс.

Leva2222222 25 нояб. 2020 г., 12:31:49 | 5 - 9 классы

Как составить программу?

Как составить программу?

Составьте программу, определяющею, является ли последняя цифра введенного целого числа нечетным числом?

Myrick 10 авг. 2020 г., 07:02:32 | 5 - 9 классы

Дано трехзначное число?

Дано трехзначное число.

Найти сумму цифр числа.

(Написать программу на языке Паскаль).

Лили20151 10 сент. 2020 г., 02:02:35 | 5 - 9 классы

Составить программу по задаче :Дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"?

Составить программу по задаче :

Дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное".

Galymmaks 21 окт. 2020 г., 11:58:50 | 10 - 11 классы

Вы ввели трехзначное число?

Вы ввели трехзначное число.

Затем ввели любую цифру.

Составьте программу, определяющую, есть ли в этом числе данная цифра.

Elektricman242 19 июл. 2020 г., 06:10:30 | 5 - 9 классы

Составьте, программу, определяющую, является ли последняя цифра введенного целого числа нечетным числом?

Составьте, программу, определяющую, является ли последняя цифра введенного целого числа нечетным числом.

Auezbaeva1 26 мар. 2020 г., 21:47:52 | 10 - 11 классы

Ввели трехзначное число, определить есть в нем повторяющиеся цифры?

Ввели трехзначное число, определить есть в нем повторяющиеся цифры.

Паскаль.

Павел547 8 сент. 2020 г., 15:52:54 | 10 - 11 классы

Дано целое трехзначное положительное число n?

Дано целое трехзначное положительное число n.

Составьте программу которая определяет входит ли в него цифра восемь.

Помогите пожалуйста!

Огонёк123 17 янв. 2020 г., 21:57:58 | 10 - 11 классы

Составьте программу в результате выполнения которой выясняется входят ли четные цифры в запись данного трехзначного числа?

Составьте программу в результате выполнения которой выясняется входят ли четные цифры в запись данного трехзначного числа.

Мухтар7 11 авг. 2020 г., 21:59:02 | 5 - 9 классы

Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые?

Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые.