Помогите, пожалуйста, срочно?

Batrxanovag 8 июл. 2020 г., 13:19:26

1. Короткое решение для числа произвольной длины (на символьной строке)

var s : string ; c : char ;

begin Write('Введите натуральное число : ') ; Readln(s) ; Write('введите искомую цифру : ') ; Readln(c) ; if Pos(c, s)> ; 0 then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет')

end.

Тестовое решение

Введите натуральное число : 43543232

введите искомую цифру : 4

Такая цифра в числе есть

2.

Более традиционное решение с целочисленными переменными

var s, c : integer ; brk : boolean ;

begin Write('Введите натуральное число : ') ; Read(s) ; Write('введите искомую цифру : ') ; Read(c) ; brk : = false ; repeat if s mod 10 = c then brk : = True ; s : = s div 10 until brk or (s = 0) ; if brk then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет')

end.

Тестовое решение

Введите натуральное число : 43543232

введите искомую цифру : 6

Такой цифры в числе нет.

Mogetta 19 окт. 2020 г., 11:02:34 | 5 - 9 классы

Здравствуйте)Вводится натуральное число?

Здравствуйте)Вводится натуральное число.

Определить среднее арифметическое его цифр.

Pascal) не могли бы помочь?

KreePS 7 авг. 2020 г., 13:58:24 | 5 - 9 классы

Вводятся значения двух ЦИФР?

Вводятся значения двух ЦИФР.

Напечатать максимальное двузначное число, которое можно сформировать из этих цифр или сообщение, что таких двузначных чисел не существует.

(Pascal).

Ylyyra 1 февр. 2020 г., 16:19:40 | 10 - 11 классы

Pascal?

Pascal.

Определить, образуют ли цифры числа симметричную последовательность.

ЭВАНЖЕЛИНКА 3 нояб. 2020 г., 19:28:30 | 10 - 11 классы

Pascal Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз?

Pascal Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз.

SofArkadiu 12 нояб. 2020 г., 19:12:02 | 5 - 9 классы

PASCAL ABC, программа?

PASCAL ABC, программа!

Вводится целое положительное число.

Найти наименьшую нечетную цифру в числе.

Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".

200287 10 авг. 2020 г., 20:28:44 | 5 - 9 классы

С клавиатуры вводится трехзначное число?

С клавиатуры вводится трехзначное число.

Вывести на экран удвоенную цифру единиц Pascal.

Eqorqeiko 11 мар. 2020 г., 07:55:46 | 10 - 11 классы

Код программы в PASCAL, СРОЧНО?

Код программы в PASCAL, СРОЧНО!

Условие : Вводятся 3 натуральных числа.

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

Pacyukroman86 29 февр. 2020 г., 18:37:36 | 10 - 11 классы

Определить последнюю цифру заданного целого числа в pascal?

Определить последнюю цифру заданного целого числа в pascal.

Luneva281983 5 мая 2020 г., 18:59:18 | 5 - 9 классы

С клавиатуры вводится целое положительное число?

С клавиатуры вводится целое положительное число.

Определить, сколько в этом числе чётных цифр.

(PASCAL).

Тіна111113 12 нояб. 2020 г., 20:51:49 | 10 - 11 классы

Определить, что сумма цифр числа меньше А (А вводится с клавиатуры) СРОЧНООО ПОЖАЛУЙСТА паскаль?

Определить, что сумма цифр числа меньше А (А вводится с клавиатуры) СРОЧНООО ПОЖАЛУЙСТА паскаль.