#include <iostream>
int main()
{
int
number,
val,
digits;
bool query[2]{false, false};
std::cout << "Введите число: ";
std::cin >> number;
std::cout << std::endl << "Введите цифру, которую нужно найти в числе: ";
std::cin >> val;
while(number)
{
digits = number % 10;
number /= 10;
if(digits == 3)
query[0] = true;
else if(digits == val)
query[1] = true;
}
if(query[0])
std::cout << "Число 3 входит" << std::endl;
else std::cout << "Число 3 не входит" << std::endl;
if(query[1])
std::cout << "Число " << val << " входит" << std::endl;
else std::cout << "Число " << val << " не входит" << std::endl;
}
Представленную в двоичном виде(ДВОИЧНЫЙ КОД)
<span>Вводится в паскале последовательность из N целых чисел .Является ли последовательность возрастающей? С использованием Repeat или While.
Нет, не является.</span>
Var
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.')
else writeln('Произведение этих чисел не кратно 4.')
end.
Var
s:string;
i,n1,n2:integer;
begin
Write('Введите строку: '); Readln(s);
n1:=0; n2:=0;
for i:=1 to Length(s) do
case s[i] of
'*':Inc(n1);
'!':Inc(n2)
end;
Writeln('Найдено *: ',n1,', !: ',n2)
end.
<em><u>Тестовое решение:</u></em>
Введите строку: Это *просто *!* тестовая строчка!!!
Найдено *: 3, !: 4