Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aydinlileman7
17.08.2021 12:00 •
Информатика
Роботы, в зависимости от их функций, бывают нескольких видов. Ниже вам представлены различные виды роботов.
Определите промышленного робота по картинке
НА
На
5
4
3
2
1
3
4
1
2
5
Показать ответ
Ответ:
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 оценок)
Популярные вопросы: Информатика
emin19
15.10.2022 04:16
Логические высказывания и выражения Высказывание, которое нельзя уменьшить или разделить без потери смысла называется... * 1Сложное логическое высказывание 2Логическая операция 3Простое...
Серый43а
09.01.2022 00:09
Для записи текста использовался 64-символьный алфавит. ка- кой объём информации в байтах содержат 10 страниц текста, если на каждой странице расположено 32 строки по 64 симво- ла...
Karukart
01.07.2020 08:36
Вывести все четырехзначные числа от а до в (от 1000 до 9999), содержащие разные цифры...
Aiutka574
20.05.2020 08:31
6. Укажите, какое логическое выражение равносильно выражению ¬ (A ∧ B) ∧ ¬(C ∨ ¬A) ∧ (B ∧ ¬C) 1) A ∧ ¬B ∨ ¬B ∧ ¬C 2) 0 3) ¬A ∧ B ∧ C 4) A ∨ ¬B ∨ ¬C 7. Символом F обозначено одно...
Alakey11
19.07.2022 05:07
2) сообщение, записанное буквами из 64-символьного алфавита, содержит 720 символов. какой объем информации оно несет?...
fhtyf
18.10.2021 06:59
У якому випадку Пошук розв язання взагалі не знайде розв язку?...
qqqq27
25.03.2021 08:07
Предметна область «зовнішнє незалежне оцінювання». Потрібно зберігати відомості про склад тестів зовнішнього незалежного оцінювання. Кожен тест стосується певного предмета, проводиться...
МарусяПанда2006
21.02.2020 22:50
Корневым катологом называется...
SerStroka
28.09.2022 16:48
Постройте круговую диаграмму по данным из табл. 3.8...
irishkaevdokimova14
24.04.2020 15:20
Язык программирования Паскаль: история возникновения, структура программы, особенности пунктуации написать реферат...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.