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

В данной задаче числа задаются с функции random(x), которая выдает случайное число из диапазона от 0 до числа х-1. Нам нужен диапазон от 1 до 50, следовательно будем использовать функцию random(50)+1 Составить программу, в которой задаются два случайных числа в диапазоне от 1 до 50 и если первое число больше второго, то вычисляется сумма чисел, иначе – разность.

👇
Ответ:
Zhansiya15
Zhansiya15
16.09.2021

Відповідь:

const x=50;

var a,b,c:integer;

begin

 a:=random(x)+1;

 b:=random(x)+1;

 writeln('a = ',a,', b = ',b);

 if a > b then c := a + b else

   c := a-b;

 writeln('c = ',c);

end.

Пояснення:

a = 11, b = 45

c = -34

4,4(16 оценок)
Открыть все ответы
Ответ:
haka228
haka228
16.09.2021
Var
  count, i, d1, d2, d3, d4, d5, d6: integer;
const
  MIN = 189980;
  MAX = 205505;
begin
  count := 0;
  for i := MIN to MAX do
    begin
      d1 := i div 100000;
      d2 := i mod 100000 div 10000;
      d3 := i mod 10000 div 1000;
      d4 := i mod 1000 div 100;
      d5 := i mod 100 div 10;
      d6 := i mod 10;
      if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i 
      then
        count := count + 1;
    end;
  writeln('в промежутке от ', MIN, ' до ', MAX, ' ', count, ' счастливых билетов');
end.
4,8(99 оценок)
Ответ:
AnastasiaStoyn
AnastasiaStoyn
16.09.2021
Var
  count, i, d1, d2, d3, d4, d5, d6: integer;
const
  MIN = 189980;
  MAX = 205505;
begin
  count := 0;
  for i := MIN to MAX do
    begin
      d1 := i div 100000;
      d2 := i mod 100000 div 10000;
      d3 := i mod 10000 div 1000;
      d4 := i mod 1000 div 100;
      d5 := i mod 100 div 10;
      d6 := i mod 10;
      if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i 
      then
        count := count + 1;
    end;
  writeln('в промежутке от ', MIN, ' до ', MAX, ' ', count, ' счастливых билетов');
end.
4,8(7 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ