logo
Войти Регистрация Спроси ai-bota


NaightMar
25.03.2023 10:30

Второе , какую функцию написать, чтобы на складе было написано, где какой товар находится

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Ququki
Ququki
29.10.2021 01:24
Дано число, найти количество нечётных цифр числа, сумму чётных цифр и минимальную цифру числа. решить через Python​...
Анна3672
Анна3672
19.11.2020 03:00
кто сможет написать программу для этого уравнения на dev c++...
ника2092
ника2092
03.03.2022 23:38
З яких графічних примітивів може складатися графічне зображення у текстовому документі? а) Прямої та кривої б) прямої та ламаної в) кривої та ламаної г) лінії та фігури...
1Raffaelka1
1Raffaelka1
06.05.2020 02:01
9. Счет клиента содержал Z руб. С января в начале каждого месяца на этот счет переводится Y руб. заработной платы, снимается X руб. (коммунальные платежи); в конце месяца производится...
k0tesss
k0tesss
13.05.2020 01:21
Задача №1: Створити програму, яка виводить квадрат чисел від 3 до 8. Задача №2: Вивести таблицю множення на 6 Задача №3: Згенерувати 4 випадкових числа від 1 до 15 та знайти їх...
ayazhanbeibit51
ayazhanbeibit51
24.12.2021 04:38
Решить по информатике за 6 класс-условие в пояснение туристы-отец, мать и два брата-близнеца должны переправиться через реку.в их распоряжении есть маленькая лодка, вмещающая только...
aujqjajqwrh
aujqjajqwrh
24.12.2021 04:38
1)дано целое многозначное число n.найти сумму цифр этого числа 2)найти произведение первых n натуральных чисел. 2)найти произведение первых n натуральных чисел....
Ali0429
Ali0429
28.08.2021 23:50
Расскажите о слитное и раздельное написание не с именами существительными, прилагательными...
anka110
anka110
28.08.2021 23:50
Найдите внутренние углы равнобедренного треугольника если один из внешних углов будет равен а)70градус б)136...
jarinka2804
jarinka2804
28.08.2021 23:50
Применяя интевсивною технологию бригада изгатовила сверх плана 96 деталей привысив план на 3% сколько деталей должна была изготовить бригада по плану...
Ответ:
LeBleque
17.01.2021 15:29
{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.
0,0(0 оценок)
Ответ:
arpine1977
17.01.2021 15:29
{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота