Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
elias7114
02.04.2020 21:22 •
Информатика
Даны два натуральных числа m и n. проверить входит ли запись числа m, в запись числа n. нужно решение через вайл, безо всяких наворотов,
👇
Увидеть ответ
Ответ:
Sonyamay
02.04.2020
Что значит "входит в запись числа"? Пример покажите
4,7
(35 оценок)
Открыть все ответы
Ответ:
KavaiiGot
02.04.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
02.04.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 оценок)
Это интересно:
Ф
Финансы-и-бизнес
18.09.2022
Как вычислить период оборота запасов: практическое руководство...
Х
Хобби-и-рукоделие
16.01.2022
Угловые закладки своими руками: простой и креативный способ сохранить страницу...
З
Здоровье
17.12.2021
Как получить больше витамина А?...
К
Кулинария-и-гостеприимство
13.05.2022
Как приготовить шоколадный торт в скороварке - быстро и вкусно...
Т
Транспорт
07.05.2022
Как управлять автомобилем в зимнюю погоду: советы и рекомендации...
З
Здоровье
27.10.2022
Конъюктивит: быстрый и эффективный способ избавиться от болезни...
К
Компьютеры-и-электроника
06.07.2020
Как сохранить форматирование документа при его копировании и вставке...
В
Взаимоотношения
04.01.2023
Как правильно вести себя, когда ваш парень целует вас в присутствии друзей...
К
Кулинария-и-гостеприимство
19.02.2020
Как приготовить сливочную яичницу болтунью...
С
Стиль-и-уход-за-собой
25.06.2021
Как наносить тональную крем-пудру: лучшие способы...
Новые ответы от MOGZ: Информатика
3vovo4ka3
09.02.2022
3) Какой показатель не относится к основным характеристикам процессора? a) Тактовая частота b) Объем оперативной памяти c) Разрядность d) Частота системной шины e)...
BabyTaya
01.03.2022
1. Что является основой персонального компьютера? а) процессор b) жесткий диск c) клавиатура и монитор d) системная плата 2. Для чего предназначен процессор? a) для...
Аделина2605
09.08.2020
Найти количество информации, которое занимает видеоролик, размером картинки 800*600 пикселей, с частотой кадров 15 кадров/сек, длительностью 1 минута, в цветовой гамме...
поняття
22.02.2021
Что будет выведено на экран после выполнения программы? Pascal: s := 123456789 ; s1 := abcdef ; s := copy(s, 5, 3) + 0 + copy(s1, 2, 3); writeln(s); Python: s = 123456789...
okuprie
09.10.2022
Значение арифметического выражения: 16 (20-я степень) + 2 (30-я степень) – 32 записали в системе счисления с основанием 4. Сколько цифр «3» в этой записи?...
Engineeeer
04.06.2021
Номер 34. Сделать Схему и Таблицу...
daniilf02mail
19.10.2020
Що надають Інформаційні матеріали і ПРИКЛАДИ сайтів...
frashthefrash
28.03.2020
мне нужен МЕЧ в программе Кумир...
thanksagainand
03.11.2020
Какие продукты лучше употреблять на ужин? ...
Масяня878
20.11.2022
Решите Информатика 8 класс) a= 8; b= a - 6 ; b= 3*a - b*2 ; c= -a*2 + 4 * b; b= -a*2 + b/4-c; a= b/5 - a*4; c= c/32 - b - a*3; a= c - b; c= b/5 - a;...
MOGZ ответил
6. LOON LISTENING 41 Listen to the 2 4 Complete the telephone conversation...
Как называется приём? Зато беспощадно едят его мошки, Зато ему рано...
ТЕКСТ ЗАДАНИЯ Установите соответствие между силой и причиной ее...
30 г соли растворили в 400г воды. Определите массовую долю (%) соли...
Напишите описательное эссе объемом 50-60 слов на тему «Нет жизни...
Make nouns of the words in brackets. 1. Where have you been? I need...
Зарисуйте семена и подпишите название его частей...
Геометрия! Решите Желательно все подробно расписать!) Дано: треугольник...
ТОЛЬКО РМ ОТВЕТЫ ИЛИ ЖАЛОБА У 25 семиклассников спросили, сколько...
Б) мама капает пять капель жидкости духов на тыльную сторону ладони...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ