О четности или нечетности вещественного числа можно говорить лишь если оно не имеет дробной части. В этом случае оно приводится к целому числу. Я не знаю, зачем дано абсолютно глупое требование не использовать условный оператор, но выполнить его можно. Надо умножать число на абсолютную величину остатка от его деления на 2. Если число четное, остаток будет нулевым, нечетное - единичным. Поэтому результатом умножения будет или само нечетное число, или ноль. И можно все подряд складывать.
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
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
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("Ошибка! Вы ввели не четырехзначное число!");
}
}
}
Объяснение: Супер стремный вариант, но он работает.