М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ухв
Ухв
28.09.2020 23:20 •  Информатика

Какой текст будет выведен на экран в результате выполнения следующего фрагмента программы? s: ='example'; s0: ='abc'; delete(s,1,3); writeln(s);

👇
Ответ:
betmurzaev2015
betmurzaev2015
28.09.2020
Delete  (процедура) удаляет подстроку из строки.
В твоем случае delete(s, i, k)
s-исходная строка,
i - с какой позиции
k - сколько символов удалять.

Форма записи Delete(s,1,3) означает из строки s, убрать с первого по третий символ (строку с первого элемента по третий).

writeln(s) => 'mple'

P.S.: s0:='ABC'; - это действительно лишнее : )
4,4(61 оценок)
Открыть все ответы
Ответ:
tank243188
tank243188
28.09.2020
1. Разобьем условие на части, чтобы было нагляднее.
в числе меньше восьми цифр "И"
     [число кратно 3 "ИЛИ"
          (число содержит 2 "И" число кратно 5)]

2. Условие "в числе меньше восьми цифр" связано с остальной частью выражения по "И", следовательно, оно обязательное и все, что ему не удовлетворяет, должно быть отброшено вместе с этим условием.
Варианты 4) и 6) содержат 8 цифр и отбрасываются.

3. число кратно 3
    "ИЛИ"
          число содержит 2
          "И"
          число кратно 5
Если варианты "число кратно 3" есть, мы их выбираем, а это условие отбрасываем.
Кратны трем числа 1) 69 2) 12 и 7) 15.

4. Остались числа 3) 25, 5) 22 и 8) 55.
Проверяем их на условие
число содержит 2
"И"
число кратно 5
Содержат двойку 3) 25 и 5) 22, но лишь 25 кратно 5 - его и оставляем.

ответ: 1) 2) 3) 7)
4,6(81 оценок)
Ответ:
BANDOLEROS
BANDOLEROS
28.09.2020

{Выводит узор из 100 произвольно размещенных окружностей произвольного

радиуса и цвета}

uses Graph;

var

grDriver:integer;

grMode: integer;

grPath:string;

ErrCode:integer;

x,y,r: integer; ( координаты центра и радиус окружности }

i: integer;

begin

grDriver:=VGA;

grMode:=VGAHi;

grPath:=' ';

InitGraph (grDriver,grMode,grPath);

ErrCode:=GraphResult;

if ErrCode <> grOk then

begin

writeln ('Ошибка инициализации графического режима.1);

writeln ('Для завершения работы нажмите <Enter>');

readln;

Halt(l);

end;

Randomize;

for i:=l to 100 do

begin

x:=Random(640);

y:=Random(480);

r:=Random(240);

Setcolor(Random(16));

Circle(x,y,r);

end;

readin;

end.

4,5(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ