Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
джон7777
11.02.2021 17:39 •
Информатика
В задачах 52-61 для данного х вычислить значение функций
Показать ответ
Ответ:
alinabugajcuk38
25.01.2020 22:40
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 оценок)
Ответ:
123HelpMe123
09.09.2021 13:10
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
0,0
(0 оценок)
Популярные вопросы: Информатика
23774947hhbhut
03.03.2022 05:13
Задание 1. Согласно вашему варианту построить блок - схему решения задач. 18 вариант. Задание 2. Описать структуру блок-схемы....
Qwertyuiopkoval
05.01.2021 03:15
Изучите ресурсы сети Интернет и предложите пояснения к следущим функциям:ЛЕВСИМВО();ПРАВСИМВО();ДЛСТРО();НАЙТИ();ЗАМЕНИТЬ();ПОДСТАВИТЬ();ПСТРО();СЖПРОБЕЛЫ();СЦЕПить(); ...
subscribetome
04.01.2021 03:35
Не могу зайти в аукционный зал в игре Forza Horizon 4. Аукционный зал горит серым хоть я уже 250 лвл и уже давно обучение. Игру купил официально в Microsoft store купил стандартное...
musinda
19.05.2021 03:43
На рисунке представлена схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, 3, И, К, Л, М. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько...
mrsuper773outlookcom
09.02.2023 20:55
В ячейке С4 находится формула = E7 + F$3. При копировании в клетку D6 формула будет иметь вид ...а) = F9 + G$5, б) = B9 +G$3; в) = F9 + G$3; г) = B5 + G$5....
Dana1906
08.07.2021 07:48
дверь поддалась не сразу, затем сладко хрустнула, и в лицо ударил блистательный мороз. Разбор под цифрой 5...
barsik20002
03.05.2021 08:13
Сообщение на тему первые христиане...
taylakova090820
18.01.2023 12:56
2 задачи химия 1. При обработке 9,8 г смеси карбоната, гидроксида и сульфата кальция выделилось 0,896 л газа (н. у.) и осталось 2,1 г твёрдого остатка. Вычислите массовую долю компонентов...
29101975tanuxa
31.01.2021 00:33
Визначте коефіцієнт важкості травматизму, якщо на підприємстві трапилося 6 нещасних випадків, втому числі і зі смертельним наслідком і було втрачено 45 днів....
nemo121212
14.09.2022 16:08
1. Сколько прямых можно провести через две точки? Сколько общих точек могут иметь две прямые? Объясните, что такое отрезок. 2. Объясните, что такое луч? Как обозначаются лучи? Какая...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных