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

программе «:=» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций и порядок действий соответствуют правилам арифметики. Определите значение переменной a и b после выполнения алгоритмов: а := 8 b := 2 b := a/4*b a := 2*а + 5*b а := 3 b := 5 a := 6 + a*b b := b + a/3 а := 4 b := 10 а := b - a*2 b := 24/a*4 а := 100 b := 50 b := а - b/2 а := a/5 + b/3 а := 10 b := 110 b := 110 + b/a a := b/11*a a := 4 b := 5 a := b + 15 b := 100/a*4

👇
Ответ:
SMILЕ31
SMILЕ31
06.06.2021

мне тоже нужно у каго есть

4,4(80 оценок)
Открыть все ответы
Ответ:
Chillin
Chillin
06.06.2021
Program ekzamen;
var ocenka:byte; // при условии, что будет меньше 255, иначе лучше использовать integer
const prohod=5; //задается проходной равный пяти
max_ball=5;//максимально возможный в данной системе оценивания
begin
writeln('Программа зачисления в институт');
writeln('Сообщите свой ');
readln(ocenka);//пользователь вводит свой
if ocenka>max_ball then writeln('Такой оценики нет')//проверка, существует ли такой
else
if ocenka>=prohod then writeln('Зачислен') else writeln('Не зачислен');
readln();
end.
4,6(12 оценок)
Ответ:
abdulismailova2
abdulismailova2
06.06.2021
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var m:=ReadInteger('Количество элементов в массиве А (m):');
  var n:=ReadInteger('Количество элементов в массиве B (n):');
  var k:=ReadInteger('Позиция вставки k (1<k<m):');
  if (k>1) and (k<m) then begin
    var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
    var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
    Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
    end
  else Writeln('Вы нарушили условие 1<k<m')
end.

Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26
4,4(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ