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

Https://www.lebanondemocrat.com/calendar/watch-chal-mera-putt-2-2020-full-movies-free/event_4c1d7c22-831a-11ea-a524-308d99b28de3.html
https://www.lebanondemocrat.com/calendar/watch-chal-mera-putt-2-online-2020-full-movies-free-official-4khd/event_4ca3b0d0-831a-11ea-93a1-308d99b28adb.html
https://www.lebanondemocrat.com/calendar/123movies-chal-mera-putt-2-full-online-free-in-2020/event_4da3860e-831a-11ea-8b69-37e6b37ad644.html
https://www.lebanondemocrat.com/calendar/watch-chal-mera-putt-2-movies-verystream-in-2020-full-movies-online/event_4e62927e-831a-11ea-ba76-67692aa2a810.html
https://www.lebanondemocrat.com/calendar/watch-chal-mera-putt-2-2020-full--movie-download-hd/event_502c91cc-831a-11ea-b343-5cb9017b9d1f.html
https://www.lebanondemocrat.com/calendar/hd-watch-chal-mera-putt-2-2020-online-full-for-free/event_5058a82a-831a-11ea-ab2f-308d99b28daf.html
https://www.lebanondemocrat.com/calendar/watch-chal-mera-putt-2-2020-full-movies-online-4khd-free/event_512c4f22-831a-11ea-9acd-47d48d865697.html
https://www.lebanondemocrat.com/calendar/123movies-watch-chal-mera-putt-2-2020-online-full-movie/event_5215ea56-831a-11ea-ab71-5cb9017b77dc.html
https://www.lebanondemocrat.com/calendar/extraction-2020-full-movie-online--download-hd/event_8ed8cebc-822b-11ea-9a35-b75d4288185f.html

👇
Открыть все ответы
Ответ:
777sofia777
777sofia777
12.04.2020
Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.
4,6(36 оценок)
Ответ:
DenQ04a
DenQ04a
12.04.2020

using System;

class Program

   {

       static void Main(string[] args)

       {

           Console.WriteLine("Введите координату x точки");

           double x = int.Parse(Console.ReadLine());

           Console.WriteLine("Введите координату y точки");

           double y = int.Parse(Console.ReadLine());

           Console.WriteLine("Введите радиус");

           double r = int.Parse(Console.ReadLine());

 

           double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));

           Console.WriteLine(d);

           if (d < r){

               Console.WriteLine("Да");}

           else if (d == r){

               Console.WriteLine("На границе");}

           else{

               Console.WriteLine("Нет");}

           Console.ReadKey();

       }

   }

4,6(18 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ