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

Вторговом центре этажи нумеруются так .. ‚ 3, 2, 1, 1, 2, 3, (то есть нет нулевого этажа). вася спустился на лифте 0 этажа с номером а на в этажей, в затем поднялся на лифте на с этажей. определите, на каком этаже он оказался программа получает на вход три целых числа. в перв и сгр записано число а, во второй -в, в третьей -с. число а не равно нулю и не превосхоцит по модулю 100, числа в и с -положительные и не превосходят 100 программа должна вывести одно целое число номер эт а, на котором оказался вася.

👇
Ответ:
aleksandrzhark
aleksandrzhark
11.04.2021

На Паскале  

 

Var a,b,c,d,e:integer;  

Begin  

Read(a,b,c);  

d:=a-b;  

if (a>0) and (d<=0) then d:=d-1;  

e:=d+c;  

if (e>=0) and (d<0) then e:=e+1;  

write(e);  

End.

4,5(8 оценок)
Открыть все ответы
Ответ:
nadiacolupaeva
nadiacolupaeva
11.04.2021
N = X1*256 + Y1*16 + Z1
2N = X2*256 + Y2*16 + Z2
X1 + Y1 + Z1 = X2 + Y2 + Z2

Во-первых, X1 < 8, иначе число 2N в 16-ной записи станет 4-значным.
Можно написать такую программу поиска этих чисел
Начало
k = 0 ' Это счетчик чисел, которые мы ищем
Цикл по X1 от 1 до 7
    Цикл по Y1 от 0 до 15
        Цикл по Z1 от 0 до 15
            N = X1*256 + Y1*16 + Z1
            M = 2*N
            X2 = Int (M / 256)
            Y2 = Int ((M - X2*256) / 16)
            Z2 = M Mod 16
            Если (X1+Y1+Z1 = X2+Y2+Z2) And ((X1 = 2) Or (Y1 = 2) Or (Z1 = 2), То
                k = k + 1
            Конец Если
        Конец цикла по Z1
    Конец цикла по Y1
Конец цикла по X1
Вывод k
Конец
4,6(8 оценок)
Ответ:
MiladKowalska
MiladKowalska
11.04.2021
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('Вводите элементы матрицы построчно');
  var a:=new real[n,m];
  var b:=new real[n];
  for var i:=0 to n-1 do begin
    b[i]:=0;
    for var j:=0 to m-1 do begin
      Read(a[i,j]);
      b[i]+=Sqr(a[i,j])
      end;
    b[i]:=Sqrt(b[i])
    end;
  Writeln('Сформированный вектор');
  b.Println;
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548
4,6(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ