Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Азим721
07.05.2022 18:51 •
Информатика
С графического редактора Adobe Photoshop создайте анимированную картинку . выслать файл с форматом psd –
фотошопа)
👇
Увидеть ответ
Открыть все ответы
Ответ:
212629
07.05.2022
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.
4,7
(77 оценок)
Ответ:
maks737
07.05.2022
// 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 отрицательных
4,6
(100 оценок)
Это интересно:
Х
Хобби-и-рукоделие
22.07.2021
Как сделать флаг: простой шаг за шагом гид...
З
Здоровье
24.10.2021
Как выжить при смещенных дисках...
К
Компьютеры-и-электроника
11.04.2021
Как взломать Wi-Fi с помощью Android: просто и эффективно...
К
Кулинария-и-гостеприимство
29.12.2022
Изысканный рецепт коктейля Черный Зуб...
Х
Хобби-и-рукоделие
13.01.2022
5 советов, как сделать накид своими руками – практическое руководство для начинающих...
З
Здоровье
06.08.2020
Как научиться отказывать и почему это важно для вашего благополучия...
Д
Дом-и-сад
27.07.2022
Как выращивать мяту: советы от опытных садоводов...
С
Стиль-и-уход-за-собой
07.09.2020
Как подчеркнуть изгибы своего тела: советы от профессионалов...
Д
Дом-и-сад
31.07.2022
Как покрасить ткань чаем: возможности и результаты...
К
Компьютеры-и-электроника
26.04.2022
Как выйти из Instagram: легко, быстро и навсегда...
Новые ответы от MOGZ: Информатика
yul19758694
30.06.2020
Дан одномерный массив. запиши верный ответ...
vangelinna
08.05.2022
Понятие открытая архитектура IBM означает, что … а) конструкция предусматривает возможность расширения системы б) использование технических решений и технологий не требует лицензионных...
юра416
01.04.2020
Рассмотри код программы: [1] A=int(input()) if A%2==0: K=A**2 else: K=A**3 print(K) Чему будет равно число К, если введенное число А=3? ...
artichdok7p08ovo
07.04.2020
2. Составьте программу для вывода на экран предложения «Хорошего дня это СОР...
nastyadolbakp0837c
02.01.2020
Укажите ряд с непроизводными предлогами. * Shell IDLE IDE Run...
Masha2281337
13.01.2020
Определите результат программного кода ( ) а=((8/2)*5)/(4) print(a)...
Shamаn14
29.06.2022
Создайте класс Cafe c 3 полями - наименование кафе, наименования блюд(строковый массив), цены(целочисленный массив). Значения двух массивов соответствуют друг другу на i позиции....
anonimka2018oz5x7j
10.07.2020
==, !=, , - какие это операторы в языке Python?...
CaMo3BaH4uK
27.02.2023
Назовите программное приложение, которое программисту создавать программы Shell IDLE IDE Run...
alaaaaaaaaa
04.06.2023
Найдите ответ на выражения а) 445//7 = 445%7= 223%10= 223//10=...
MOGZ ответил
379. Начерти на координатной плоскости пятиугольник ABCDE, верши- нами которого...
В подарочную упаковку помещается 19 тарелок. Надо упаковать 250 тарелок. Сколько...
3)Есептеңіз a)23,38*0,1;b)3,6*3,57;c)8,4:0,01;d)0,9:100;e)0,585:1,17 помагите...
величина и действия с ней в задаче: было 24 кг апельсинов в ящике. Сначала азяли...
1-тапсырма. Мәтінді оқыңыз. Мәтінге тақырып қойып, жоспар құрыңыз. Интернеттің...
Задание1.Чингисхан еще при своей жизни выделил земли каждому из своих сыновей....
Жайлауында жүрген жігіт бағып қой, Дос келді деп, жасап жатыр анық той. Алғашқы...
Помагите пожайлуста. 02.03.2021...
1) Что ребята выдумали про свой возраст? 2) Что рассказал Мишутка про «нападение...
Напряжение на участке цепи ...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.