На алгоритмическом языке или любом языке программирования. даны 3 числа. если их произведение меньше 50, то числа увеличились в 10 раз, в противном случае вывести произведение (подробное описание)

👇

Ответ:

alinavn2014

10.01.2023

Program figna ; {это название}
var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые}
begin {начало}
writeln('введите три числа'); {запрос чисел}
readln(a,b,c); {ввод чисел}
d:=a*b*c; {умножаем числа и присваиваем d их значение}
if (d<50) then {если произведение чисел меньше 50 то}
a:=a*10; {первое число умножаем на десять}
b:=b*10; {второе число умножаем на десять}
c:=c*10; {третье число умножаем на десять}
writeln(a); {выводим первое}
writeln(b); {выводим второе}
writeln(c); {выводим третье}
else {иначе}
writeln(d); {выводим произведение}
end. {конец}
P.S. этот символ { } паскаль не читает и означает он коментарий

4,4(56 оценок)

Открыть все ответы

Ответ:

lei123

10.01.2023

Const
n = 15;
Flag = 111;

type
Mas = array[1..n] of integer;

procedure ShiftLeft(var A: Mas; nPos: integer);
// Элементы массива A, начиная с номера nPos, сдвигаются на один к началу массива
// Последний элемент массива заносится значением 111
var
i: integer;
begin
for i := nPos to n - 1 do
    A[i] := A[i + 1];
A[n] := Flag
end;

procedure ShiftRight(var A: Mas; nPos: integer);
// Элементы массива A, начиная с номера nPos, сдвигаются на один к концу массива
// Последний элемент массива теряется, элемент с номером nPos заносится значением 111
var
i: integer;
begin
for i := n downto nPos + 1 do
    A[i] := A[i - 1];
A[nPos] := Flag
end;

function Contains5(p: integer): Boolean;
// Возвращает true, если в числе p есть хоть одна цифра 5
// Возвращает false в противном случае
var
s: string;
begin
Str(p, s);
Contains5 := (Pos('5', s) > 0)
end;

procedure DeleteAll5(var A: Mas);
// Удаляет из массива А все элементы, содержащие цифру 5
var
i, j: integer;
begin
i := 1; // текущая позиция в массиве
j := n; // количество непросмотренных элементов
while j > 0 do
begin
    if Contains5(A[i]) then
      ShiftLeft(A, i)
    else
      i := i + 1;
    j := j - 1
end;
end;

function Fold(var A: Mas; pStart: integer): integer;
// Возвращает номер элемента в массиве А, значение которого кратно его номеру
// pStart - номер элемента, с которого начинается просмотр
// Если такого элемента не найдено, возвращается ноль.
var
i: integer;
begin
for i := pStart to n do
    if A[i] mod i = 0 then begin
      Fold := i;
      Exit
    end;
Fold := 0
end;

procedure InsertK(var A: Mas; k: integer);
// После всех элементов массива, кратных своему номеру,
// вставляет значение k, сдвигая оставшиеся элементы
// к концу массива
var
i, j: integer;
begin
i := 1;
while i <= n do
begin
    j := Fold(A, i);
    if j > 0 then begin
      ShiftRight(A, j);
      A[j] := k;
      i := j + 1
    end
    else
      i := n + 1
end
end;

function GetFirstPos(var A: Mas): integer;
// Возвращает номер первого положительного элемента в массиве А
// Возвращает ноль, если таких элементов нет.
var
i: integer;
begin
i:=1;
while i <= n do
begin
    if A[i] > 0 then begin
      GetFirstPos := i;
      Exit
    end
    else
      i := i + 1
end;
GetFirstPos := 0
end;

function GetLastNeg(var A: Mas): integer;
// Возвращает номер последнего по порядку отрицательного элемента в массиве А
// Возвращает ноль, если таких элементов нет.
var
i: integer;
begin
i:=n;
while i >= 1 do
begin
    if A[i] < 0 then begin
      GetLastNeg := i;
      Exit
    end
    else
      i := i - 1
end;
GetLastNeg := 0
end;

procedure Swap(var A: Mas; p: integer; q: integer);
// Обмен местами элементов массива A[p] и A[q]
var
s: integer;
begin
s := A[p]; A[p] := A[q]; A[q] := s
end;

var
M: Mas;
k, i, j: integer;

begin
// Инициализация массива
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
    M[i] := random(70) - 20;
    write(M[i]:4)
end;
writeln;
DeleteAll5(M); // Удаление элементов, содержащих цифру 5
writeln('После удаления элементов, содержащих цифру 5');
for i := 1 to n do
    write(M[i]:4);
writeln;
writeln('Введите значение k');
readln(k);
InsertK(M, k);
writeln('После вставки значения k');
for i := 1 to n do
    write(M[i]:4);
writeln;
i := GetFirstPos(M);
if i > 0 then begin
    j := GetLastNeg(M);
    if j > 0 then begin
      Swap(M, i, j);
      writeln('После обмена местами пары элементов');
      for i := 1 to n do
        write(M[i]:4);
      writeln;
    end
end
end.

Тестовое решение:

Исходный массив
-2 -5 43 12 13   5 -7   9 27   5 47 45 28 34 21
После удаления элементов, содержащих цифру 5
-2 43 12 13 -7   9 27 47 28 34 21 111 111 111 111
Введите значение k
222
После вставки значения k
222 222 -2 43 12 13 222 -7 222   9 27 47 28 34 21
После обмена местами пары элементов
-7 222 -2 43 12 13 222 222 222   9 27 47 28 34 21

4,6(65 оценок)

Ответ:

Малика25072002

10.01.2023

1. Браузер - Программа для просмотра веб-страниц

2. Адресная строка - место для ввода адреса ресурса
Кнопки Назад, вперед, обновить - для навигации по страницам
Полоса скроллинга - для просмотра длинных страниц

3. Домашняя страница - это страница, которая по умолчанию открывается в браузере. (например - как только откроешь браузер).
Установить домашнюю страницу можно разными спсобами, вот некоторые из них:
а) зайти в настройки, и изменить адрес домашней страницы на другой
б) Открыть страницу, нажать специальную комбинацию горячих клавиш (у каждого браузера может быть по своему)

4.Также несколько вариантов. Открыть ссылку - затем в окне щелкнуть по звезде (например, в браузере хром) или ПКМ мышью в свободную область в опере - добавить в закладки / избранное.

5. Журнал (или история) - это список посещенных вами страниц. Используется для:
а) Того, чтобы вернуться на страницу, на которой вы были некоторое время назад
б) нахождения адреса страниц, в которых вы присутствовали некогда
в) для просмотра посещаемых страниц, пока браузером пользовались не вы

5. Не переходить по сомнительным ссылкам, не загружать файлы из недостоверных источников, не вводить логины, проли, и другие персональные данные на сомнительных сайтах, не переходить по рекламам.

4,4(31 оценок)

Это интересно:

Дом-и-сад

05.07.2021

Как без проблем удалить пятна краски с эмали?...

Искусство-и-развлечения

08.05.2020

Как стать режиссером: искусство создания киношедевров...

Взаимоотношения

15.07.2022

Как отстаивать свои права в отношениях: 10 советов...

02.05.2023