С. Арифметический дальтонизм ограничение по промени на тест: 1 секунди
ограничение по памяти на 10ст: 266 могабайт
прод: Стандартный под
попод стандартный вывод
Айбару диагностировали родкуно болезнь: "Арифметичокский дальтонизм". Он не отличить арифметические знаки '+' (сложить), -
(отнять), """(умножить) и "/"(долить). Но он все равно яляется крутым математиком ведь он перебрать у себя в голове все возможные
варианты арифметических выражений. Что-бы Айбар не устанял, его близкие друзья Батыр и Данияр решили подарить ему программу которая
будет делать эту работу за него. К сожалению они совсем не уменот программировать, поэтому просят вас о !
Входные данные
Входные данные состоят и выражения и пидо т?у
з без капычок, где () т, y, z10".
Выходные данные
В первой строке выводите одно число k - ответ на задачу. Далее выведите каждый из вариантов в отдельной строчке. Варианты можно
выводить в произвольном порядко.
Примеры
оходные данные
Скопировать
выходные данные
скопировать
Входные данные

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

↓

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

ольга240387

02.08.2020 00:31

1. Что такое web-программирование? 2. Для каких целей оно используется? 3. Какова функция языка HTML? 4. Что вы понимаете под web-cайтом? 5. Каковы этапы планирования сайта? 6. Каковы...

Wolfie2006

24.03.2021 01:56

Задача Сі шарп: Створити проект який за даними температурами тижня обчислює різницю між максимальною і мінімальною температурою, кількість теплих днів та перевіряє чи були заморозки....

vlad2217890

21.09.2022 12:23

Какие инструменты были использованы для многогранного объекта ...

грустнаякакахаха

05.10.2020 20:22

Сколько цифр 1 в двоичном представлении десятичного числа 64...

ternya1sd

02.04.2022 09:20

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

EcLIpsЕ

26.04.2023 15:29

Дано логическое выражение: не ((не а или не в) и с). после его...

anastaiyaersho

28.04.2022 00:51

33 основные этапы разработки и исследования моделей на компьютере с составлением какого нибудь объекта или чего то 1-описательная информационная модель 2-формализованная модель 3-клмпьютерная...

nastya2729

09.02.2023 01:22

Вn строках записаны данные о результатах сдачи экзаменов егэ по , языку и . каждая строка содержит фамилию, имя и три целых числа – количество , набранных участником по каждому предмету....

Yuntsev

24.04.2021 21:51

Казак теле 3 класс стр 18 тапсырма 5...

Zaminaej

29.01.2020 03:28

Вычеслите синодический переод планеты если её переод обращение вокруг солнца 4,5 года...

Ответ:

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 Оформи подписку