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

Нужно ввести 3 значное число и поменять цифры например (345; 543)

👇
Ответ:
vergos86slobode
vergos86slobode
06.06.2022
Если в паскале то...
program n1;
var x,a,b,c,k:integer;
begin
write('x='); readln (x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
write ('k=',b,a,c);
readln;
end.
там где write ('k=',b,a,c) здесь a,b,c меняй местами и все)
4,7(74 оценок)
Открыть все ответы
Ответ:
Skyflay12367
Skyflay12367
06.06.2022

import math

p = int(

b = false

for i in range(1, p ** 2):

    gip = (p ** 2) + (i ** 2)

    if math.sqrt(gip) % 1 == 0:

        b = true

        if int(math.sqrt(gip)) ! = p:

            print(int(math.sqrt(

if b == false:

    print(-1)

# что-то типо этого, но не проходит по времени. надо смотреть диапазон. может если кто дорешает, ответьте. а так всё норм работает)

4,7(16 оценок)
Ответ:
Irinazpopo
Irinazpopo
06.06.2022
Var  i1, i2, i3: 1..9;  //Цифры трехзначного числа  i, n: integer;  //n - количество трехзначных чисел, у которых ... begin  n:= 0;  //Обнуляем счетчик  for i:= 100 to 999 do  //Перебираем все трехзначные числа и считаем количество  begin    i1:= i div 100;    i2:= (i mod 100) div 10;    i3:= i mod 10;     if (i1 + i2 + i3) mod 2 = 0 then n:= n + 1;  end;  writeln('Количество трехзначных чисел, у которых сумма цифр является четным числом равна:  ', n);  //Выводим количествоend.Если все правильно, отметь решение как лучшее)
4,5(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ