Регистрация
lololoki03
23.02.2021 07:45
Информатика
Есть ответ 👍

Внимание! Это задачу нужно решать на C# :) Новое приключение Рика и Морти.

Мошенники завладели секретной информацией. И чтобы их не нашли начали перемещаться

между галактиками и запутывать следы.

Необходимо найти галактики куда отправить Рика и Морти, чтобы поймать мошенников.

Для этого надо отсортировать все перемещения по возрастанию времени, найти номера

галактик по следующему принципу:

Морти ищет галактики номера которых делятся на 3. Пишет своё имя "Morty"

Рик ищет галактики номера которых делятся на 5. Пишет своё имя "Rick"

Если Рик и Морти находят галактики номера которых делятся одновременно на 3 и на 5, то

они записывают "RickAndMorty" и отправляются по таким галактикам искать мошенников.

Галактики, которые не удовлетворяют этим критериям были добавлены для запутывания

следов.

Формат входных данных

dd.MM._H:mm:ss__*

где:
"_" - символ пробела
"dd.MM." - дата межгалактического перемещения
"H:mm:ss" - время межгалактического перемещения
"" - целочисленный номер галактики, состоящий из восьми символов
"*" - комментарий при межгалактическом перемещении

Формат выходных данных

_*

где:
"_" - символ пробела
"" - целочисленный номер галактики, состоящий из восьми символов
"*" - кто определил галактику: Rick / Morty / RickAndMorty

Пример

Входные данные

Выходные данные

22.04.2123 17:39:10 69636278 What, So Everyone's Supposed To Sleep Every Single Night Now?

06.05.2124 16:04:22 86785765 What People Call 'Love' Is Just A Chemical Reaction...
16.01.2162 16:06:23 88521853 ...Meeting Them Head-On, Charging Into 'Em Like A Bull - That's How We Grow As People
09.01.2142 19:29:13 75543976 Weddings Are Basically Funerals With A Cake
09.07.2171 21:00:43 96808855 I Always Slay It, Queen.
07.04.2160 6:20:47 69645075 ...Welcome To The Club, Pal.
24.08.2139 1:14:29 15351673 I'm A Scientist; Because I Invent...
14.10.2181 16:25:31 71679711 Hot Funeral Selfies...
11.05.2164 20:06:55 81212616 Get Out Of Here, Summer! You Ruined The Season 4 Premiere!
31.05.2149 17:04:21 51382664 Sometimes Science Is More Art Than Science, Morty
06.03.2143 21:20:09 41509556 This One's Not Directed By Ron Howard...
25.11.2184 18:20:26 22200490 Wubba Lubba Dub Dub!
09.11.2122 10:33:22 38997219 The Universe Is Basically An Animal...
28.07.2193 23:32:11 57095903 ...To Live Is To Risk It All...

38997219 Rick

86785765 Morty
69645075 RickAndMorty
81212616 Rick
96808855 Morty
71679711 Rick
22200490

174
266
Посмотреть ответы 2

Ответы на вопрос:

71121
71121
4,4(97 оценок)

Не знаю прости в следующий раз обязательно

kulikovamascha
kulikovamascha
4,8(8 оценок)

var a:array [1..100] of integer;

var n,i,k :integer;

begin

k:=1;

for i:=1 to 10 do begin

read (a[i]);

if a[i]<10 then k:=a[i]*k;

end;

write(k);

end.

Популярно: Информатика