Дано трехзначное число, определите, входят ли в него числа 3,8,5
5-9 класс
|
Программа Паскаль
var
x:integer;
begin
writeln('Введите числo:');
readln(x);
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if (x=3)or(x=5)or(x=8) then
writeln('В чсило входит цифра: ',x mod 10);
end.
Другие вопросы из категории
загодировано как 44??554 ,если вместо знака вопроса может стоять любая цифра
НУ ЧТОБ ЗНАТЬ КАК СКАЧИВАТЬ ВСЕ КАРОЧЕ ПОКАЗАЛИ
ДОМА ВЫБРАЛА ИГРУ (Stubbs the Zombie МЕСТЬ КОРОЛЯ. 2 ЧАСТЬ) СКАЧАЛА НАЧЕЛА ОТКРЫВАТЬ И ПОЯВИЛАСЬ ТАБЛИЧКА ТЫ УСТОНОВИЛ ИГРУ ТЕПЕРЬ ПЕРЕЗАГРУЗИ КОМПЬЮТЕР Я ПЕРЕЗАГРУЗИЛА ПОТОМ ОПЯТЬ ОТКРЫЛА И ОПЯТЬ ТАБЛИЧКА И КРОЧЕ МНОГО РАЗ ПЕРЕЗАГРУЖАЛА И ВСЕ НЕ ОТКРЫВАЕЦА ПОМОГИТЕ НЕ ПОНЕМАЮ
А ЗАДАНИЕ ВОПЩЕ СТРАНОЕ ЗАДАЛА УЧИЛКА СКАЧАТЬ ИГРУ БЛИН
Читайте также
1) Преобразуйте двоичное число в восьмеричное:1010100
2)Преобразуйте двоичное число в десятичное:100010
3)Преобразуйте двоичное число в шестнадцатеричное:1110001000
4)Преобразуйте восьмеричное число в двоичное:67
5)Преобразуйте восьмеричное число в десятичное:207
6)Преобразуйте восьмеричное число в шестнадцатеричное: 2246
7)Преобразуйте десятичное число в двоичное:404
8)Преобразуйте десятичное число в восьмеричное:283
9)Преобразуйте десятичное число в шестнадцатеричное:1001
10)Преобразуйте шестнадцатеричное число в двоичное:5D
11)Преобразуйте шестнадцатеричное число в восьмеричное:4C
12)Преобразуйте шестнадцатеричное число в десятичное: 35B
четыре целых числа. Вывести на экран минимальное из них.
3.Даны три вещественных числа a, b и с - коэффициенты уравнения ax^2+bx+c. Найдите решение этого уравнения или сообщите, что решения не существует.
дано четырехзначное число. определить, входят ли в него цифры 2 или 7