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

Получив на вход число x этот алгоритм печатает два числа a и b укажите наименьшее из таких чисел x при вводе которых алгоритм печатает сначала 3 а потом 18 var x,a,b: integer begin readln(x); a: =0, b: =0 while x> 0 do begin a: =a+1 if x mod 2=0 then b: =b+x mod 10 x: =x div 10 end; writeln(a); writeln (b); end.

👇
Ответ:
valeriasavilova
valeriasavilova
28.03.2020
Переменная а ведёт подсчёт количества цифр в числе, значит, число трёхзначное. Переменная b пополняется последней цифрой числа только тогда, когда число чётно. Затем производится сокращение числа на последнюю цифру. Так как мы ищем наименьшее число, то им будет являться число 288.
4,4(80 оценок)
Открыть все ответы
Ответ:
emiliahouse
emiliahouse
28.03.2020
Машинная программа представляет собой последовательность команд. В команде программы содержится описание операции, которую должен выполнить компьютер. Как правило, у команды есть свой код (условное обозначение), исходные данные и результат. Например, у команды "сложить два числа" операндами являются слагаемые, а результатом — их сумма. Результат команды вырабатывается по точно определенным для данной команды правилам, заложенным в конструкцию компьютера.
Реальная программа, выполняемая ЭВМ (электронная вычислительная машина), представляет собой последовательность единиц и нулей, которая хранится в памяти машины. Эту цепочку единиц и нулей (бит) называют машинным языком. 
4,8(10 оценок)
Ответ:
EminAkid
EminAkid
28.03.2020
Var    matrix: array[1..5,1..5] of integer;    i, j: integer; sg:=0; sp:=0;begin    writeln ('Введите 25 чисел: ');     for i := 1 to 5 do        for j := 1 to 5 do            read (matrix[i,j]);     for i := 1 to 5 do begin        for j := 1 to 5 do            write (matrix[i,j], ' ');        writeln    end;  for i:=1 to 5 do begin   for j:= 1 to 5 do   if j=i then sg:=sg+matrix[i,j]; end; for i:=5 downto 1 do    begin    for j:=1to 5 do    if (i+j)=6 then sp:=sp+matrix[i,j]    end;    sp:=sp-matrix[3,3];1 writeln(sg,' ',sp);readlnend.
4,5(90 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ