дам всё что есть. Числа 42, 88 и 156 с волшебного "Чёрного ящика" превратились в 6, 16 и 12. Запишите алгоритм превращения.
Числа 42, 87 и 156 с волшебного "Чёрного ящика" превратились в 14, 29 и 52. Запишите алгоритм превращения.
Числа 16, 28 и 112 с волшебного "Чёрного ящика" превратились в 33, 57 и 225. Запишите алгоритм превращения.
Числа 42, 88 и 156 с волшебного "Чёрного ящика" превратились в 22, 45 и 79. Запишите алгоритм превращения.
Числа 42, 88 и 156 с волшебного "Чёрного ящика" превратились в 8, 64 и 30. Запишите алгоритм превращения.
Числа 15, 23 и 44 с волшебного "Чёрного ящика" превратились в 22, 30 и 51. Запишите алгоритм превращения.
Числа 15, 168, 438 и 2567 с волшебного "Чёрного ящика" превратились в 15, 1, 3 и 57. Запишите алгоритм превращения.
Числа 29, 168, 438 и 2567 с волшебного "Чёрного ящика" превратились в 2, 68, 48 и 26. Запишите алгоритм превращения.
Числа 7, 101 и 25 с волшебного "Чёрного ящика" превратились в 27, 403 и 99. Запишите алгоритм превращения
Числа 15, 159, 468 и 2567 с волшебного "Чёрного ящика" превратились в 51, 951, 864 и 7652. Запишите алгоритм превращения.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

129697113

13.04.2022 21:28

мощьность алфавита 256 символов.Письмо содержало 356 знаков.Каков информацтонный обьем этого общения в байтах?...

Viki258

09.05.2023 14:17

Приведите по 2 собственных примера словесных моделей , рассматриваемых на уроках : истории, географии, математики...

2003mariasMaria

23.04.2023 12:06

1)Ввести в компьютер любым три произвольные цифровые переменные (n, p, q), найти и распечатать их произведение. 2)Найти значение алгебраического выражения y при х= -1.9. y=(-x(x+1)^2)/(2-x(x-1)^2...

aska311203

25.09.2022 11:11

исправить цикличную программу так , чтобы она находила произведение трёх чисел. Паскаль...

Polinaovch

21.02.2023 07:04

Составьте программу, которая заполняет массив a[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит а экран элементы, значения которых являются четными и кратными...

зяйка75542

11.01.2023 10:09

Регистрация на конференцию каждому участнику дается номер его выступления. Каждый такой номер заеисывается минимально возможным и одинаковым целым числом БИТ. Оперделите, сколько...

raniskarimov2

27.02.2023 12:52

Напишите программу, которая в последовательности целых чисел определяет сумму двух наибольших и сумму двух наименьших. Программа должна вывести две этих суммы в указанном порядке....

kilmetovalmas14

04.11.2022 08:07

Вы подошли к светофору,когда горел красный свет. После этого загорелся а)зеленый; Какое количество информации вы при этом получили? Решение производить по формуле 2i=N...

DiroL21

11.08.2020 05:47

Помаги икт ответить на вопросы 2 вопроса помаги фото и фото можно помаги задание вот какие блоки использовались при создание игры?какие блоки имеется в программе,...

Timoxin

15.01.2022 00:33

Написать программу на pascal с использованием функции (наверное, для факториала) ВЫЧИСЛЕНИЯ Z...

Ответ:

TruLLa

26.04.2022 17:58

Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s,a:string;
    begin
    write('Введите строку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такого слова нет');
    end.

Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть

Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет

0,0(0 оценок)

Ответ:

LIquid0Horse

01.05.2021 03:51

//PascalABC.NET 3.2 сборка 1318

Var
arnx,armx,arny,army,delMmax:array[1..1000] of real;
N,M,res,i,j:integer;
min:real;
begin
min:=maxreal;
{не уверен существует ли эта константа в fpc, если что, она равна максимальному значению типа real}
readln(N);
for i:=1 to N do
readln(arnx[i],arny[i]);
readln(M);
for i:=1 to M do
begin
readln(armx[i],army[i]);
delMmax[i]:=-1;
for j:=1 to N do
if delMmax[i]<sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]))
then
delMmax[i]:=sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]));
if delMmax[i]<min
then
begin
min:=delMmax[i];
res:=i;
end;
end;
writeln(res);
end.

Пример ввода:
3
2 1
1 2
1 1
3
1 5
3 3
4 2
Пример вывода:
2

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку