М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
serebrykov947
serebrykov947
01.08.2021 15:49 •  Информатика

Нужно найти счастливое число, счастливым число называется если сумма первых трёх цифр равна сумме последних трёх цифр и эти суммы являются чётными ,проверьте на ошибки program swan_1; var y,z,c,d,p,f: integer; writeln('введите шестизначное число'); readln(y); z: =y div 100000; b: =(y div 10000)mod 10; c: =(y div 1000)mod 10; d: =(y div 100)mod 10; p: =(y div 10)mod 10; f: =y mod 10; j: =z+b+c; u: =d+c+f; if(j=u)and(j mod 2=0)and (u mod 2=0) then writeln('счастливое число') else writeln('несчастливое число') end.

👇
Ответ:
Саша73838
Саша73838
01.08.2021
Program swan_1;
var y,a,b,c,d,e,f,s1,s2:integer;
begin
writeln('введите шестизначное число');
readln(y);
a:=y div 100000;
b:=(y div 10000)mod 10;
c:=(y div 1000)mod 10;
d:=(y div 100)mod 10;
e:=(y div 10)mod 10;
f:=y mod 10;
s1:=a+b+c;
s2:=d+e+f;
if(s1=s2)and(s1 mod 2=0)and (s2 mod 2=0)
 then writeln('счастливое число')
 else writeln('несчастливое число')
end.

Пример:
введите шестизначное число
143026
счастливое число
4,7(24 оценок)
Открыть все ответы
Ответ:
gorod1723
gorod1723
01.08.2021
Собственно, решение однострочное...

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln('Ср.арифм=',ArrRandom(30,0,1000).Println(', ').
      Where(x->Odd(x)).Average)
end.

Тестовое решение:
611, 443, 634, 637, 44, 297, 286, 431, 130, 767, 388, 513, 827, 681, 619, 810, 586, 697, 206, 823, 294, 238, 354, 138, 411, 141, 873, 864, 715, 564
Ср.арифм=592.875

И пояснение, как это работает, т.е. по сути алгоритм на русском языке.
ArrRandom(30,0,1000) создает массив из 30 элементов и заполняет его случайными значениями из диапазона [0,1000]. Далее этот массив обрабатывается методом Println, который направляет значения элементов на вывод, разделяя их запятой с последующим пробелом и в конце вывода добавляет смену строки. Затем элементы массива проходят фильтр Where(x->Odd(x)), который пропускает через себя только те значения, которые удовлетворяют условию Odd(значение элемента)=True, а мы знаем, что Odd() возвращает True для нечетного аргумента. Далее фильтр элементы обрабатываются методом Average, который умеет принимать набор значений и возвращать их среднее. И наконец, процедура Writeln выводит полученное значение, предваряя его текстовым пояснением.
4,4(47 оценок)
Ответ:
colaboyy7704ox6ktx
colaboyy7704ox6ktx
01.08.2021
Чтобы прекратить ввод чисел в массив нужно ввести число "-1".
class ArrayMiddle{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
  while((eArray[eArray.length-1] = in.nextLong())!=-1){
   long nArray[] = new long[eArray.length+1];
   for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
   eArray = nArray;
  } eArray[eArray.length-1] = 0;
  for(int cCell = 0; cCell<eArray.length-1; cCell++)eArray[eArray.length-1]+=eArray[cCell];
  System.out.print(eArray[eArray.length-1]/(double)(eArray.length-1));
 }
}
4,4(26 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ