Лёха12339
16.09.2021 07:36

Напишите программу на языке мне 5 нужна за год

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
tonuo84
05.01.2021 17:35
Чем является информация для человека?Каким должно быть сообщение, чтобы оно пополнило ваши знания?Информативны ли для вас следующие сообщения: "Сколько в слове гласных звуков, столько в слове и слогов" и "Термин "мультимедиа" означает объединение текста, звука, графики и видео в одном документе"? ответ обоснуйте.Какими средствами приёма сигналов из внешнего мира обладает человек?Какие ощущения вы испытывали, купаясь летом в реке?Из чего складывается восприятия? Приведите пример.Каково ваше представление о носителях информации? Опишите их.Что такое понятие? Приведите примеры понятий из повседневной жизни, а также из курсов математики, русского языка, истории, географии и информатики.Приведите 2-3 примера суждений, в которых речь идет об объектах, изучаемых на уроках информатики.Сделайте умозаключения.
0,0(0 оценок)
Ответ:
мамадочп4а
03.02.2022 15:19
// PascalABC.Net 3.0, сборка 1076
var
  s,ss:string;
  i,n,p:integer;
begin
  Write('Введите строку: '); Readln(s);
  n:=Length(s); p:=Pos(',',s);
  if p in [1..n-1] then begin
    ss:=Copy(s,p+1,n-p);
    n:=Length(ss); p:=Pos(',',ss);
    if p=0 then Writeln(ss)
    else Writeln(Copy(ss,1,p-1))
    end
  else Writeln('*** Нечего выводить ***')
end.
     
Тестовые решения:
Введите строку: 01234,45679,1011213,14151617
45679

Введите строку: 01234,45679101121314151617
45679101121314151617

Введите строку: 01234,
*** Нечего выводить ***
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота