Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
KatyaKuxar
14.07.2021 21:30 •
Информатика
Какое значение будет принимать переменная х? a: =100; b: =30; а: =а-b*3; if a> b then x: = 7*a-b else begin a: =5; x: =b-a; end;
👇
Увидеть ответ
Ответ:
КoТuK
14.07.2021
25 вот так вот ... Этож изи
4,6
(76 оценок)
Открыть все ответы
Ответ:
KavaiiGot
14.07.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
14.07.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 оценок)
Это интересно:
К
Компьютеры-и-электроника
04.11.2021
Как создавать QR‐коды с помощью Android...
К
Компьютеры-и-электроника
12.03.2021
Как подготовить кабель Ethernet и объединить два ноутбука в сеть...
П
Путешествия
23.11.2022
Как безопасно путешествовать по Южной Африке...
К
Компьютеры-и-электроника
19.09.2020
Как распечатать Google Календарь...
К
Компьютеры-и-электроника
17.06.2022
Как установить TortoiseSVN и произвести свои первые изменения в репозитарии...
К
Компьютеры-и-электроника
11.11.2020
Легкий способ - как скопировать музыку с CD в формате MP3...
К
Компьютеры-и-электроника
01.09.2020
Как подключиться к прокси–серверу: шаг за шагом руководство?...
В
Взаимоотношения
13.03.2020
Избегайте обидных фраз во время ссор между супругами: советы психологов...
К
Компьютеры-и-электроника
04.10.2022
Как удалить старые сообщения в WhatsApp...
В
Взаимоотношения
29.10.2021
Как отказаться от мысли об измене партнеру...
Новые ответы от MOGZ: Информатика
severenok
04.01.2023
Для вставки графических изображений в текстовый документ используют...
elenak22
07.08.2020
Как проверить одинаковые ли слова на Pascal. Если одинаковые то вывести «Yes», если нет то вывести «No». Заранее Ввод: стоп стоп Вывод: Yes...
nogood2
26.02.2021
Перевести код с Pascal на var s,sn:string; t,p:text; i: integer; begin assign(t, C:\in.txt ); assign(p, C:\out.txt ); reset(t); rewrite(p); while not (Eof(t)) do begin readln(t,s);...
XxXRePlayXxX
23.02.2022
В таблице представлены изображения....
rikitakata
14.04.2021
Якщо кількість повторень у циклічному алгоритмі наперед визначена, то отримаємо…? Виберіть одну відповідь: розгалуження цикл з передумовою цикл з післяумовою зациклення...
далекоотсолнца
18.02.2020
В таблице представлены изображения...
5286Squirrel17
09.06.2023
Что будет на экране после выполнения следующего фрагмента программы, если массив содержит следующие значения (15,3,4,7,12): k: =0 for i: =1 to 5 do if (a[i] mid 2) 0 then begin...
RihDest
12.01.2021
Turbo pascal.дана строка, содержащая 15 символов.подсчитать сколько раз буква о встречается в данной строчке....
mrzadvorgetski
12.01.2021
Саша получил сообщение информационный объём которого равен 64 битам. чему равен этот объём в байтах?...
knmnatalip011cc
16.10.2022
Совокупность точек (пикселей) образующих строки и столбцы 9 букв...
MOGZ ответил
Какие части света и материи были известны древнегреческим ученым...
Вравнобедренной трапеции диагональ сост. с боковой стороной угол 120 градусов....
7км 800 м=м 560 дм=м 9700см=м 34000мм=м запиши в копійках: 8 грн=к 9грн90к=к...
Одно из любимых развлечений феодалов 5 букв...
Сочинение по роману дубровский тема: дубровский и маша троекурова...
Какое проверочное слово к слову хранить...
Хозяйка рассчитывала за 1 5/6ч приготовить обед и за 1 3/5ч закончить стирку...
Рассчитайте массы нужных веществ для получения 2.14 г. гидрооксида железа...
Что обозначает условный знак пятиконечная звезда в чёрном круге?...
Что такое плита платформа геосинклиналь щит .!...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ