using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApp
{
class Program
{
static void Main(string[] args)
{
Console.Write("Введите четырехзначное число: ");
int Chislo = int.Parse(Console.ReadLine());
if (Chislo <= 9999 && Chislo>=1000)
{
int a, b, c, d;
a = Chislo / 1000;
b = (Chislo / 100)%10;
c = (Chislo / 10)%10;
d = Chislo % 10;
if (a==b||a==c||a==d||b==c||b==d||c==d)
Console.WriteLine("Eсть одинаковые цифры в числе: " + Chislo);
else
Console.WriteLine("В числе: " + Chislo + " нет одинаковых цифр!");
}
else
Console.WriteLine("Ошибка! Вы ввели не четырехзначное число!");
}
}
}
Объяснение: Супер стремный вариант, но он работает.
CLS
DIM n AS INTEGER
INPUT "n=", n
DIM i AS INTEGER, k AS INTEGER, x AS SINGLE, s AS SINGLE, i AS INTEGER
s = 0
FOR i = 1 TO n
INPUT "->", x
s = s + x * (ABS(INT(x)) MOD 2)
NEXT i
PRINT "s = ", s