Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Abdulla2009
31.12.2020 02:25 •
Информатика
Посоветуйте хорошую кфг для игры в 4 пальца PUBG MOBILE
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
31.12.2020
{ ответ дан на языке 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.
4,6
(32 оценок)
Ответ:
pogasii
31.12.2020
{ ответ дан на языке 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.
4,6
(85 оценок)
Это интересно:
Х
Хобби-и-рукоделие
29.07.2020
Как сделать буклет из бумаги: пошаговая инструкция для начинающих...
22.07.2022
Боязнь высоты: как преодолеть её и наслаждаться жизнью...
Х
Хобби-и-рукоделие
01.01.2022
Как сделать купальник: советы от профессионала...
К
Компьютеры-и-электроника
15.06.2021
Как открыть программу Terminal на Mac...
К
Компьютеры-и-электроника
01.03.2023
Как войти в Windows со стандартным паролем администратора...
И
Искусство-и-развлечения
01.04.2021
Как научиться петь: советы для начинающих...
О
Образование-и-коммуникации
03.02.2023
Как правильно сказать привет на китайском языке: все, что нужно знать...
Х
Хобби-и-рукоделие
10.07.2021
Игра в Джекс: правила и стратегии...
С
Стиль-и-уход-за-собой
19.08.2022
Как сделать бальзам для губ из вазелина: домашний рецепт...
С
Семейная-жизнь
13.11.2020
Как стать лучшей сестрой: советы от реальных девушек...
Новые ответы от MOGZ: Информатика
Kristina018191999
08.02.2021
Составить схему алгоритма и написать программу сформировать датчиком случайных чисел целочисленный массив А(16); - найти в массиве количество отрицательных четных чисел;...
Annkeklol
15.09.2020
50 і іть будь ласка з ! для python....
gxjjfjg
01.02.2022
Решить. 1. в результате выполнения следующих операторов: a: =3; b: =4; x: =sqrt(sqr(a) +sqr(b); write( x= ,x, a+b=7 ); writeln(a, b, a , b ); будет напечатано: д) x= 5true...
avorob
07.12.2022
Дан двумерный массив a[n,m]. определить максимальный элемент массива решите...
kek22821
13.01.2023
Дано натуральное число n. найти количество двузначных чисел, произведение цифр которых равно n...
antanika2000
11.05.2023
Решение 1. файл размером 4000 кбайт передаётся через некоторое соединение в течение 1 минуты. определите размер файла (в кбайт), который можно передать через это соединение...
lokator1
11.08.2020
Вывести числа от 11 до 99, через 11....
MissMi
27.03.2020
Дана вещественная матрица b(m*m). вычислить произведение суммы всех элементов данной и их разность. нужно сделать программу на языке паскаль через размерность. среда разработки...
Chelyabin
14.06.2020
Составить программу на языке с++ возведения натурального числа в квадрат, используя следующую закономерность: 1^2=1 2^2=1+3 n^2=1+3+5+7++(2n-1)...
6466743532
19.01.2023
Вычислите: 312(маленькая цифра снизу 4) × 13(маленькая цифра снизу 4). ответ выразите в 4-ичной системе счисления....
MOGZ ответил
У выражение: 2 A) (x-4)-(x+1)(x+2) 2 Б) 5(a+b)- 10ab...
1. Отличие литературной сказки от народной...
У автомобиля в четырех канистрах было 97 л бензина .В первой канистре...
X в квадрате минус x в квадрате плюс x и минус y...
Історія створення Міщанин шляхтич, образи комед...
Добери і запиши за зразком слова назви ознак до кожного малюнка...
При додаванні кількох крапель метилоранжу до водного розчину забарвлення...
решить 4 задание из 2 варианта...
2. Найбільшим за кількістю населення містом Австралн є ? ...
Скориставшись показами приладів, зображених на рисунку, визначте опір...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
{ Вариант 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.