Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Ключ для indexNow
Скрипт от рекламы
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
Baidina
18.03.2021
?>
Разгадай кросфордупровление компютером
Информатика
Ответить
Ответы
osechkinandrejj
18.03.2021
{ ответ дан на языке 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Разгадай кросфордупровление компютером
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Заранее за Составить алгоритм, печатающий «ДА», если оба числа m и n неотрицательные, и «НЕТ» в противном случае.2) Составить алгоритм, проверяющий, является ли данное целое число z трёхзначным, ...
Автор: Shcherbakov_Artur1781
Дан список: a = [43, 54, 2, 54, 32] i) после ввода a[0], напишите результат (что будет выведено на экран) ii) после ввода a[-1], напишите результат (что будет выведено на экран и подпишусь
Автор: vickuznetsova8677
Работа с системой программирования на языке Паскаль Напишите программу, которая выводит на экран случайные числа из диапазонов: a) от -30 до -20; b) от 112 до 138; с) от -15 до 15;
Автор: kamalfayed229
Задан IP адрес компьютера и маска подсети. Определите номер компьютера в этой сети. 10.59.35.102 255.255.255.0 И напишите как это делать, хочу понять
Автор: fedoseevgleb
Вводится натуральное число n необходимо вывести все кубы натуральных чисел от n до 1
Автор: Magnolia200872
Информатика! Ребят, не подвведите 6 класс
Автор: mariy-inkina8
Символами псевдографики закодировали слово
Автор: Поликарпова-Мазурова
Выделите красным цветом ложные высказывания.мониторы могут отображать информацию с различными пространственными разрешениями.изображение на экране монитора формируется из отдельных точек – пикселей.мо...
Автор: Rufilya-Belov
Все это делается в программе scilab Найти произведение положительных элементов вектора, расположенных на нечетных местах. Исходный вектор: 21. 4. - 2. 0. 10. 5. - 2. 0. - 1. 7. Произведение положител...
Автор: Yurkov
Назовите различия между тремя классами программного обеспечения .
Автор: Aleksandrovich-Yurevna1421
Найти сумму и количество натуральных чисел в интервале от 0 до 50, оканчивающиеся на цифру k
Автор: Sergeevna-Makarov
Склавиатуры вводится число n, за ним массив из n целых чисел и число x. найдите количество элементов массива, значение которых равно x*x.
Автор: T91610933073266
Подумай и напиши!Напиши название блока и определи, какие настройкибыли применены.
Автор: Кононова-БЕСКРОВНАЯ
Сделать задания на pythone Задания на фото
Автор: Pirogovskii695
Перевести с pascal на c# само : элементами типизированного файла являются отдельные слова. изменить все его элементы на другие слова (их значения вводятся с клавиатуры рассмотреть вариант: размер суще...
Автор: Logukate
▲
{ Вариант 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.