Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
GOLUBOVICH0400
04.09.2021 17:26 •
Информатика
В каких случаях утверждение с операндом ≥при переменных А и B верно? подскажите Варианты ответа: - если верно А или B - если А и B неодинаковы - если B больше А - если А истинно
Показать ответ
Ответ:
Smaik111
03.08.2021 15:42
PYfy9pX4YibdfKzE8dnbSXaP3D5sbZenWQXx+TzottBxmrnKP4dS39zDFCHeytaxQuaxO6+SihcUhSqF6PmmxN3GxGIIAPLiSxjqjTtSHbvo7htEBwkC9DrKA9nK9xIOxPRcjpd6DAdMG0SkqPbK1+57wXgl2KsD43bDyI91iNHZGVEFuJjW2WjoZmDZOb/rVd7R9AqyWfNwqgLu5n0s8oZKpT55zvtPlOdDo6CM93h3C9G55Qj17fBXO/NNywpSzMGUqCxZha8Dm9QprL4Amawdo2pnCyu31Kn+Zny692acWR8k+IjeIoeL9HS7GGpxomAYoUcl2QOl2meKVWiovxtHmLKNooQK1Hc8yqvu293YHqgzQp3rHNgJxPJfiQnUmlYXGvOGZLk6vEUXIiesvdftDsCS/8Ae6YiLr8HWExGez9YXrworoX46BqS86+EFy3m8zwgu1fA9z61qLUP90KYw8KxlJJDWAThAVGrADHEsoHJ35+216/jwx5ruS3xgPOL83Vy5P1bL884jUiefVsuhprgR7C75lvy2ZCUYolQ=
0,0
(0 оценок)
Ответ:
ЕvilСookie
22.12.2022 02:10
1.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ilya0902
09.04.2021 02:35
Перевести 110001100из двоичный системы в десятичную...
plalisa
07.07.2021 19:22
Построить графически рисунок кит с...
Aki0510
19.05.2023 15:22
ПРИДУМАЙТЕ 2 ЗАДАЧИ С ДАНО И РЕШЕНИЕМ(ИНФОРМАТИКА) По формуле I=v×t×i,N=2i. v-частота дискритезации ,t-время звучания,i-глубина кодирования,N-кол-во уровней интенсивности ПОЖАУЙСТА...
arina1238
06.07.2020 13:22
В какие наборы данных сгруппированы данные о проекте? Какие виды таблиц используются в системе? Какие виды представлений используются в системе? Как выбрать вид таблицы отображаемой...
lololo20021
25.05.2023 11:15
Создать программу, выполняющую вставку элемента в массив (например, свой собственный месяц в году) после элемента (после какого месяца), значение которого укажет пользователь. Вывести...
Иван66665
25.11.2021 09:37
НУЖНО ПОСТРОИТЬ В ВИДЕ ТРАССИРОВОЧНЫХ ТАБЛИЦ РЕБЯТА НУЖНО ОЧЕНЬ ОЧЕНЬ...
rfhbyf23690
23.02.2021 20:41
Вопросы не очень сложные, нужна !...
NoRMTaKK
07.11.2020 21:48
У клітинці Е5 записано формулу =$В3+С$4 . Запишіть , як виглядатиме ця формула , якщо її скопіювати у клітинку Е6, І7 , С4, Е9...
VanekPhantom
26.12.2020 04:04
Постройте логическую схему, соответствующую логическому вы-ражению, и найдите значение логического выражения: 1. F=AvB&¬C, если A=1, B=1, C=1. 2. F = ¬(AvB&C), если A=0,...
ermakovaaaa
11.08.2022 21:03
Какие художественные средства в жуковского ивиковы журавли?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.