1. Дано натуральное число n. Определить есть ли в нем цифра x. (x, n - вводятся с клавиатуры)
5-9 класс
|
2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
var
x, n:integer;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
while n > 0 do
begin
if n mod 10 = x then
begin
writeln('Yes');
readln;
Exit;
end;
n := n div 10;
end;
writeln('No');
readln;
end.
//Задание 2
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
n := random(18 + 3);
writeln('n = ', n);
for i := 1 to n do
begin
a[i] := random(11) - 5;
while a[i] = 0 do
a[i] := random(11) - 5;
write('a[', i, '] = ', a[i], ' ');
end;
a[i + 1] := 0;
writeln;
i := 1;
while(a[i + 1] <> 0) do
begin
if (a[i] = a[i + 1]) then
begin
writeln('a[', i, '] = a[', i + 1, '] = ', a[i]);
readln;
exit;
end;
inc(i);
end;
writeln('Нет ни одной пары одиноковых соседних чисел');
readln;
end.
using System;
using System.Collections.Generic;
using System.Linq;
namespace Diagonals {
class Program {
static void Main(string[] args) {
IsXinN();
TwoEqualNeibors() ;
Console.ReadKey();
}
public static void IsXinN() {
Console.WriteLine("Введите N");
string n = Console.ReadLine();
Console.WriteLine("Введите X");
char x = Convert.ToChar(Console.ReadLine());
Console.WriteLine(n.ToCharArray().Contains(x));
}
public static void IsTwoEqualNeibors() {
List<int> NumList = new List<int>();
Console.WriteLine("Введите последовательность чисел");
int n = Convert.ToInt16(Console.ReadLine());
while (n != 0) {
NumList.Add(n);
n = Convert.ToInt16(Console.ReadLine());
}
bool EqualNeibors = false;
for (int i = 0; i < NumList.Count - 1; i++) {
EqualNeibors = EqualNeibors || NumList[i] == NumList[i + 1];
}
Console.WriteLine(EqualNeibors);
}
}
}
Другие вопросы из категории
уравновешивается на чашечных весах персиком и сливой. Два ананаса уравновешиваются тремя персиками. Яблоко и слива уравновешиваются ананасом. Помогите лилипутам решить задачу.
Читайте также
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
Определить оканчивается ли оно цифрой 7.