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

Решить ! дана форма записи даты числами.например 01.12.2010 заменить цифру месяца на слово.например 01 декабря 2010 года

👇
Ответ:
ShahTV
ShahTV
23.01.2021
Программа на паскале:
var s: string;
begin
  read(s);
  write(copy(s, 1, 2));
  case copy(s, 4, 2) of
    '01': write(' января ');
    '02': write(' февраля ');
    '03': write(' марта ');
    '04': write(' апреля ');
    '05': write(' мая ');
    '06': write(' июня ');
    '07': write(' июля ');
    '08': write(' августа ');
    '09': write(' сентября ');
    '10': write(' октября ');
    '11': write(' ноября ');
    '12': write(' декабря ');
  end;
  writeln(copy(s, 7, 4), ' года');
end.
4,5(39 оценок)
Открыть все ответы
Ответ:
Typhoon01
Typhoon01
23.01.2021

С# консольное приложение

Объяснение:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           //Ваш массив

           string[] months = {"May","August","April","May","July"};

           //Искать до тех пор пока в массиве есть "Май"

           while (-1!=Array.IndexOf(months,"May"))

           {

               //Найти где находится Май в массиве

               int index = Array.IndexOf(months, "May");

               //Изменить май

               months[index] = "Это не май";

           }

           //Для отладки

           Console.ReadKey();

       }

   }

}

4,5(36 оценок)
Ответ:
hfhfhjfy
hfhfhjfy
23.01.2021
FOR
Var   a, i, n, sum: integer;  
Degin  
  ReadLn(a, n);  
  Sum := 1;  
   For i := 1 to n do sum := sum * a;  
  WriteLn(sum);
End.

WHILE
Var   a, i, n, sum: integer;  
Begin  
 Read(a, n);  
 Sum := 1;  
  While i <> n do  
   Begin    
    Sum := sum * a;  
    Inc(i);  
   End;  
 Writeln(sum);
End.

REPEAT
Var   a, i, n, sum: integer;  
Begin  
 Read(a, n);  
 Sum := 1;  
  If n <> 0 then    
   Repeat      
     Begin        
       Sum := sum * a;        
       Inc(i);      
     End;    
   Until i = n;  
  WriteLn(sum);
End.
4,7(28 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ