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

Объясните : с клавиатуры вводится трёхзначное число. написать программу, которая составляет новое трёхзначное число, в котором цифры десятков и сотен поменяли местами. заранее большое !

👇
Ответ:
udekhdhdj
udekhdhdj
10.12.2022

Объяснение:

тут есть маленькая хитрость

Если записать число не как число а как строку то оно будет восприниматься как слово.

program bred;

var

x :string;

begin

writeln('Введите число': );

readln(x);           -    мы получаем число

writeln(x[2],x[1],x[3]); - указываем какую цифру мы берем и на какое место ставим

end.

Все! Удачи! Отметь этот ответ лучшим!

4,5(47 оценок)
Открыть все ответы
Ответ:
pytbrain2007
pytbrain2007
10.12.2022
1. Первая цифра отводится на знак (1 - это -, 0 - это +). Остальные 7 - число в двоичной системе счисления. Причём если число отрицательное, то исходное двоичное число инвертируется, и к нему прибавляется 1.
а) 33 | 16 | 8 | 4 | 2 | 1 - в двоичной системе оно выглядит как 100001
      1 |  0  | 0 | 0 | 0 | 1
Так как оно положительное, то в начале ставится 0. Так как чисел всего 6, а не 7, то после первого нуля следует поставить ещё один.
ответ: 0'0100001
б) -63₁₀ = -111111₂ (переводить уже не буду подробно)
Так как число отрицательное, то в начале ставим 1, так как цифр 6, то ставим после 1 0.
1'0111111
Инвертируем:
1'1000000
Прибавляем 1:
1'1000001
ответ: 1'1000001
в) -254₁₀ = -11111110
Так как цифр 8, то последнюю отбрасываем, а далее по алгоритму:
1'1111111 >> 1'0000000 >> 1'0000001
ответ: 1'0000001

2.' ' '                   . . . . .
а) 11110  б)  10101010
   + 1101     -       11011
=101011     =10001111
в)   1101
     *  101
      1101
+1101
=1000001
Всё, как в обычной арифметике.
4,5(96 оценок)
Ответ:
alenapanina00
alenapanina00
10.12.2022
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

function IsPrime(m:integer):=(Range(2,Round(sqrt(m))).All(x->m mod x<>0));

begin
  var n:=ReadInteger('n=');
  Range(1,n).Where(i->IsPrime(i)).Println
end.

Пример
n= 318
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

function NOD(m,n:integer):integer;
begin
  while n>0 do (m,n):=(n,m mod n);
  Result:=m
end;

begin
  var a,b:integer;
  Write('Введите пару натуральных чисел:'); Read(a,b);
  Writeln('НОД=',NOD(a,b))
end.

Пример
Введите пару натуральных чисел:7955 5661
НОД=37

Синформатикой, . 1. напишите программу, которая выводит на экран все простые числа в диапазоне от 1
4,5(53 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ