Составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел, а большее из двух данных чисел-на произведение этих

составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел-на произведение этих чисел.помогите пожалуйста,очень надо!

  • var

      if a = b then writeln(‘Числа равны’);  {Числа числа равны, то печатаем сообщение об этом}

      begin

    readln(x,y);

      begin

    writeln(x,y,);

        a:= a * b;  

        b:= c * b;

    end. 

    Если все правильно, отметь решение как лучшее)

  •     b:= (c + b) / 2;

    begin

  • var x,y,k:real;

     

        writeln(‘b < a => a = ‘, a, ‘, b = ‘, b);

      if a < b then {Если a < b, то заменяем а на среднее арифметическое этих чисел, b — на произведение этих чисел и распечатываем их}

      c:= a;  

      readln(a, b);  //Вводим числа

        writeln(‘a < b => a = ‘, a, ‘, b = ‘, b);

        a:= (a + b) / 2;  

    else begin k:=x; x:=(x+y)/2; y:=y*k; end;

    begin

      a, b, c: real;  {a и b — вводимые с клавиатуры числа, c — буферная переменная, которая будет содержать значение переменной a}

      end;

    if x>y then begin k:=y; y:=(y+x)/2; x:=x*k end

      if b < a then  {Если b < a, то заменяем а на произведение чисел, b — на среднее арифметическое чисел}

      end;

    end.

  •   writeln(‘Введите 2 числа’);

1Ввести 2 числа, заменить число суммой чисел, а большее произведением.2Ввести 2 числа А и В заменить первое нулем если оно меньше второго.3Журнал стоит

1)Ввести 2 числа,заменить число суммой чисел,а большее произведением.
2)Ввести 2 числа А и В заменить первое нулем если оно меньше второго.
3)Журнал стоит k руб.Какую сдачу получит покупатель если у него в руб.
4)Определить ,является ли введенное шестизначное число счастливым,т.е. сумма первых трех цифр числа равна сумме последних трех цифр.
5)Определить ,является число А делителем числа В.

        IDE:= true;

      a5:= (a mod 100) div 10;

      if b mod a = 0 then writeln(‘Число ‘, a, ‘ является делителем числа ‘, b)

        b:= c * b;

      if b = k then writeln(‘Покупатель не получит сдачи’);

        a:= a * b;

    5)

    Если возникнут вопросы — задавай 

     

      a3:= (a mod 10000) div 1000;

  • 1)

      a4:= (a mod 1000) div 100;

    begin

      a, b: real;

      a1, a2, a3, a4, a5, a6: 1..9;

      IDE: boolean;

      c:= a;

      IDE:= false;

      readln(a);

     

        a:= a + b;

      readln(a, b);

      writeln(‘Введите 2 числа’);

    Если все правильно, отметь решение как лучшее)

      a, b, c: real;

      if b > k then writeln(‘Покупатель получит ‘, b — k, ‘ р сдачи’);

        b:= a + b;

      else writeln(‘Число ‘, a, ‘ не является делителем числа ‘, b);

    end.

      writeln(‘Введите, сколько у покупателя денег’);

      if (IDE = false) and (b < a) then 

      a1:= a div 100000;

    var

    begin

        writeln(‘Числа равны’);

      begin

      readln(a, b);

      if a < b then a:= 0;

      if (IDE = false) and (a = b) then

      begin

      else writeln(‘Число не является счастливым’);

      a6:= a mod 10;

      writeln(‘Введите 2 числа’);

      writeln(‘Введите шестизначное число’);

      readln(a, b);

      if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln(‘Число является счастливым’)

    4)

    var

      writeln(‘Введите цену журнала’);

      if (IDE = false) and (a < b) then 

     

      a, b: integer;

      if b < k then writeln(‘Покупателю придется доплатить ‘, k — b, ‘ р’);

     

      end;

    end.

    begin

     

      end;

    end.

        IDE:= true;

    var

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

      writeln(‘Введите числа A и B’);

      a: 100000..999999;

    3)

      readln(k);

    2)

        IDE:= true;

      readln(b);

    begin

    begin

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

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

      end;

    end.

      begin

    var

      a2:= (a mod 100000) div 10000;

    var

    end.

      

  •   k, b: real;

В записке слова записаны наоборот расшифровать записку т. е. записать их как а паскале желательно с объяснением слегка

в записке слова записаны наоборот расшифровать записку т.е. записать их как надо пожалуйста а паскале желательно с объяснением слегка

      i: integer;  //Переменная для цикла

  • var

        write(s[i]);  

      for i:= length(s) downto 1 do  {length(s) — это функция, которая определяет длину строки s; мы записываем текст записки посимвольно, начиная с последнего символа и заканчивая первым}

     

    Отметь решение, как лучшее)

  •   s: string;  //Текст записки

      readln(s);  //Вводим текст записки

      writeln(‘Введите текст записки’);

    begin

    end.

Дано N-произвольных чисел найти их сумму

Дано N-произвольных чисел найти их сумму.

  • var

      writeln(‘Сумма введенных чисел равна:  ‘, s);  //Выводим сумму

     

    begin

      n, i: integer;

        writeln(‘Введите число’); 

        s:= s + a;

      s:= 0;  //Обнуляем значение суммы

    end.

      begin

      for i:= 1 to N do  {N раз вводим число и каждый раз прибавляем введенное число к значению суммы}

      end;

    Если все правильно, отметь решение как лучшее)

  •   readln(N);  //Вводим N

        readln(a);

      writeln(‘Введите N’);

      a, s: real;  //a — вводимое число, s — сумма чисел

Составьте программу, проверяющую, лежит ли точка с заданными координатами вне круга с радиусом R и началом в точке Oa, b ХОТЯ БЫ ПРИМЕРНО

составьте программу, проверяющую, лежит ли точка с заданными координатами вне круга с радиусом R и началом в точке O(a,b) ХОТЯ БЫ ПРИМЕРНО

        writeln(‘Точка с заданными координатами лежит внутри круга’)

    end. 

      else

      writeln(‘Введите радиус окружности R’);

      writeln(‘Введите координаты центра окружности’);

      readln(x, y);

      readln(R);

     

    begin

      writeln(‘Введите координаты точки’);

  • var

        writeln(‘Точка с заданными координатами лежит вне круга’);

     x, y, R, Oa, Ob: real;

      if (x > (Oa — R)) and (x < (Oa + R)) and (y  > (Ob — R)) and (y < (Ob + R)) then

    Если все правильно, отметь решение как лучшее)

  •   readln(Oa, Ob);

!По информатике тема:»клавиатура»!Составить небольшой рассказ1Для чего2как устроена3какие бывают4фирмы производителей!?

Помогите пожалуйста!!)По информатике тема:»клавиатура»!!Составить небольшой рассказ)

1)Для чего

2)как устроена

3)какие бывают

4)фирмы производителей!?

  • Нууууу..В жизни клавиатура нужна для того чтобы переписываться с друзьми из других стран. С помощью клавиатуры можно напечатать нужные документы. Абсолютное большинство компьютерных клавиатур емкостные мембранные. Количество деталей как минимум: 3 сваренные между собой пленки, контроллер, пластмассовый корпус, клавиши и силиконовая мембранная матрица. Клавиатуры бывают разные : эргономичные, беспроводные, гибкие, мультимидийные, и игровые. а фирсы не знаю!

ЗАДАЧА. Квадратная матрица, вывести на экран элементы главной диогонали и подсчитать их сумму

ЗАДАЧА…..Квадратная матрица,вывести на экран элементы главной диогонали и подсчитать их сумму

    Если будут вопросы — задавай. И, пожалуйста, отметь решение как лучшее)

    var
      a: array [1..n, 1..n] of real;
      i, j: integer;
      s: real;

  • const
      n = 5;

    begin
      s:= 0;
      for i:= 1 to n do
      for j:= 1 to n do
      begin
        writeln(‘Введите a[‘, i, ‘, ‘, j, ‘]’);
        readln(a[i, j]);
      end;
      writeln(‘Исходная матрица: ‘);
      for i:= 1 to n do
      begin
      for j:= 1 to n do
        write(a[i, j], ‘ ‘);
      writeln;
      end;
      for i:= 1 to n do
      begin
        writeln(‘a[‘, i, ‘, ‘, i, ‘] = ‘, a[i, i]);
        s:= s + a[i, i];
      end;
      writeln(‘Сумма элементов главной диагонали: ‘, s);
    end.

Соревнования по плаванию были в самом разгаре, когда стало ясно, что первые четыре места займут мальчики из пятёрки лидеров. Их имена: Валерик, Кол

1. Соревнования по плаванию были в самом разгаре, когда стало ясно, что первые четыре места займут мальчики из пятёрки лидеров. Их имена: Валерик, Коля, Миша, Игорь, Эдик, фамилии: Симаков, Чигрин, Зимин, Копылов, Блинов (имена и фамилии названы в различном порядке).
Нашлись знатоки, которые предсказали, что первое место займёт Копылов, второе — Валерик, третье — Чигрин, четвёртое — Эдик. Но ни один из ребят не занял того места, какое ему предсказывали. На самом деле первое место завоевал Миша, второе — Симаков, третье — Коля, четвёртое — Блинов, а Чигрин не попал в четвёрку сильнейших. Назовите имя и фамилию каждого из лидеров.

  • Миша Зинин, Валера Симаков, Коля Копылов, Игорь Блинов