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

°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°
Складіть блок-схему алгоритму, у якому в цикл з передумовою вкладено неповне розгалудження. Поясніть виконання складеного фрагмента

👇
Открыть все ответы
Ответ:
oomasha
oomasha
11.10.2021
Строго выполняйте все указанные выше правила, а также текущие указания преподавателя;
следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры;
легко и быстро нажимайте на клавиши, не допуская резких ударов;
не пользуйтесь клавиатурой и мышью, если не включен компьютер;
работайте на клавиатуре чистыми руками;
никогда не пытайтесь самостоятельно устранить неисправность в работе аппаратуры;
не вставайте со своих рабочих мест, когда в кабинет входят посетители.
4,6(67 оценок)
Ответ:
handball230912
handball230912
11.10.2021

program raf105;

var

 a,b: array[1..7] of integer;

 i,x,win: integer;

begin

 writeln('Добро в игру "Лотерея"!');

 write('Введите семизначное число: ');

 readln(x);

 writeln;

 a[1]:= x div 1000000;

 a[2]:= (x div 100000) mod 10;

 a[3]:= (x div 10000) mod 10;

 a[4]:= (x div 1000) mod 10;

 a[5]:= (x div 100) mod 10;

 a[6]:= (x div 10) mod 10;

 a[7]:= x mod 10;

 x:= random(1000000,9999999);

 b[1]:= x div 1000000;

 b[2]:= (x div 100000) mod 10;

 b[3]:= (x div 10000) mod 10;

 b[4]:= (x div 1000) mod 10;

 b[5]:= (x div 100) mod 10;

 b[6]:= (x div 10) mod 10;

 for i:=1 to 7 do

   if a[i] = b[i]

     then if win <> 0

       then win:= win*10

       else win:= 1;

 writeln('Ваш выигрыш ',win,' руб.');

 write('Введённые числа:       ');

 for i:=1 to 7 do

   write(a[i],' ');

 writeln;

 write('Сгенерированные числа: ');

 for i:=1 to 7 do

   write(b[i],' ');

end.

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