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

Ивт 8 класс тема алогритмы написать алгоритм нахождения произведения 3 чисел

👇
Открыть все ответы
Ответ:
Varvarizma
Varvarizma
26.07.2022
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  var n:=ReadInteger('n=');
  // для сборок, начиная с 30.12.2017
  Writeln('(Sin(',x,'))^',n,' = ',Sin(x)**n);
  // для более ранних версий PascalABC.NET 3.3
  Writeln('(Sin(',x,'))^',n,' = ',Power(Sin(x),n));

Для всех прочих паскалей

var
  x,t:real;
  n,z:integer;

begin
  Write('x= '); Readln(x);
  Write('n= '); Readln(n);
  t:=Sin(x);
  if t=0 then Writeln('(Sin(',x,'))^',n,' = 0')
  else begin
    if n mod 2=0 then z:=1
    else z:=Sign(t);
    t:=Abs(t);
    Writeln('(Sin(',x,'))^',n,' = ',z*Exp(n*Ln(t)))
    end;
  Readln
end.
4,5(89 оценок)
Ответ:
olykharkov
olykharkov
26.07.2022
Var
  S, tmp, buf, firstW: string;
  i, j, k, p, ii: integer;
  ch: char;

begin
  S := 'privit    kak   dela  putin    znanija   test  proverka   privit  teste.';
  firstW := copy(S, 1, pos(' ', S) - 1);
  writeln('Исходная строка: ', S);
  writeln('Первое слово = ', firstW);
  i := 0;
  while (S[i] <> '.') do
  begin
    i := i + 1;
    if (S[i] <> ' ') then
    begin
      while ((S[i] <> ' ') and (i < Length(S))) do
      begin
        tmp := tmp + S[i];
        i := i + 1;
      end;
      buf := tmp;
      p := 0;
      ii := 1;
      while ii <= Length(buf) do
      begin
        k := 0;
        ch := buf[ii];
        for j := Length(buf) downto ii do
          if buf[j] = ch then
          begin
            k := k + 1;
            delete(buf, j, 1);
          end;
        if k > 1 then
          p := 1;
      end;
      if ((p <> 0) and (tmp <> firstW)) then
        writeln(tmp);
      tmp := '';
    end;
  end;
  readln;
end.

Язык pascal abc дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 с
4,8(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ