Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
помоги270
12.06.2021 05:38 •
Информатика
Заполнить таблицу Excel (в диапазоне A1:F5) различными числами. Посчитать в ячейке H1 сумму этих чисел, в ячейке H2 среднее арифметическое, H3 минимальное, и в H4 максимальное значение
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
12.06.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.
4,6
(32 оценок)
Ответ:
pogasii
12.06.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.
4,6
(85 оценок)
Это интересно:
О
Образование-и-коммуникации
10.06.2022
Заставьте свой мозг работать на 100%: как повысить продуктивность обучения...
З
Здоровье
01.06.2020
Сбалансированная диета: советы для тех, кто хочет оставаться здоровым и энергичным...
К
Кулинария-и-гостеприимство
13.01.2020
10 лучших советов: как запекать мясо...
К
Компьютеры-и-электроника
22.06.2020
Как подключить iPad к PS3: пошаговая инструкция...
К
Кулинария-и-гостеприимство
13.06.2020
Как сделать кокосовую муку: простой рецепт для домашнего приготовления...
Т
Транспорт
02.03.2022
Как Проверить Форсунки: Шаг за Шагом Руководство для Начинающих...
П
Питомцы-и-животные
28.03.2022
Как вылечить слипшиеся глазки у хомяка...
К
Компьютеры-и-электроника
26.02.2021
Как наслаждаться игрой в Fruit Ninja в режиме Arcade Mode...
Д
Дом-и-сад
27.10.2021
Как выпрямить древесину: эффективные методы и советы...
К
Кулинария-и-гостеприимство
12.06.2021
Как приготовить чесночную пасту: простой и быстрый рецепт с пошаговыми инструкциями...
Новые ответы от MOGZ: Информатика
Haskky
14.06.2021
Частота шины fsb равна 200 мгц,частота процессора 1.8 ггц. чему равен коэфицент умножения частоты?...
fearlessaliss
04.09.2022
Дано натуральное n. написать функцию обратного числа. напишите программу ток проверте чтоб работала...
Makeev20
26.06.2022
Напишите программу, которая вводит натуральное число n и выводит на экран чётные положительные степени числа 2, не большие, чем n , в порядке убывания. входные данные: входная строка...
veterantitanfaoz8ptr
26.06.2022
Найдите значения логического выражения (x 7) v (x 2) для указанных значений числа x: 1)6 2)5 3)0 4)9...
yellowmellow
15.11.2022
Коля задумывает натуральное число из отрезка от 1 до n. петя должен это число отгадать. он может задавать коле вопросы, допускающие только ответы да или нет . петя разработал алгоритм,...
балу123456
01.03.2023
Укажите ложные высказывания. Цифры и знаки препинания в кодовых таблицах КОИ-8 и Windows имеют различные коды. Латинские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом...
anchertow
23.01.2021
Изменяется ли число строк при сортировке...
voprooos
11.10.2020
Здравствуйте , решите Заранее...
Nikart25
08.12.2020
Наполненный теплым воздухом воздушный шар объемом 1600 м3 парит на высоте 5,5 км, где плотность воздуха в два раза меньше, чем на уровне моря. какова плотность воздуха внутри шара,...
Kotenok052000
08.12.2020
Найти производнуб от заранее огромное ....
MOGZ ответил
№6. заполним таблицу «обмен веществ у растений» (см. рис.88, с.114). таблица «обмен...
Можно ли с цыфр 1,2,5,6 ( без повтора ) составить трех значное число которое делилось...
Что обозначают эти символы : pr pd d...
Как решить пример 4560000: 6 столбиком и ещё 231600: 5 ещё 355200: 6 последний 62040:...
Величайшие государства рушились по вине молодых, а сохранялись и восстанавливались...
3*9+24: 3*2+27+7*4-16: 8+3*4= обьясните по порядку4*(58-49): 6*4+(36+36): 9*7...
Кдинамометру подвесили груз весом 4,5 н, длина его пружины стала равна 8 см, а при...
Написать сочинение, смысл сопоставление остапа и андрия в повести тарас бульба план...
На игровом поле уже есть слова: у к о ш к а а т за использование букв очки: а 1...
Различия между повестью очарованный странник и поэме кому на руси жить хорошо ....
Полный доступ к 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.