В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Нурюс
Нурюс
03.06.2022 05:26 •  Информатика

Решить 7 или 8 (на выбор).
программа visual studio.

Показать ответ
Ответ:
nsmorizevs
nsmorizevs
18.03.2023 02:43
В С# такой код получился))
Результат прикрепил в виде картинки, правда весь не поместился))  Если нужно, могу скинуть готовую программу)
double c;           
int x=0;
int y = 0;
 int z=0; 
   for (int i = 100; i < 1000; i++)     
       { c = i % 9;
if (c == 0)    { 
              int b = i;             
   x = b / 100; 
           b = b % 100;   
        y = b / 10;   
         b = b % 10;     
       z = b; 
           if (x == 0 || x == 1 || x == 4 || x == 5 || x == 8 || y == 0 || y == 1 || y == 4 || y == 5 || y == 8 || z == 0 || z == 1 || z == 4 || z == 5 || z == 8) { if (x != y && x != z && z != y)
Console.WriteLine(i); }     
       } 
                                 }

                Console.ReadLine();
Напишите все трёхзначные нечётные числа,делящиеся на 9 в записи которых есть только цифры0,1,4,5,8 и
0,0(0 оценок)
Ответ:
rokossovskaya
rokossovskaya
12.04.2020 04:38
Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
 Write('Введите число A: '); 
Readln(a);
 Write('Введите число B: '); 
Readln(b); 
Write('Введите число C: '); 
Readln(c); 
If  a>=b then max:=a
 else 
 max:=b;   
 If c>max then
max:=c; 
r:=a+b+c;
 If (A>B) and (B>C) and (C>0) then
 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then
  begin   
A:=max;   
 B:=max; 
  C:=max; 
Writeln('A= ',a,' B= ',b,' C= ',c); 
   end   
else   
 Writeln('Symma: ',r);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота