Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Noiceee
12.08.2022 21:26 •
Информатика
Слабые и сильные стороны вкладки еффекты в фото браш
Показать ответ
Ответ:
Е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 оценок)
Ответ:
iae1512p0dn07
14.04.2023 18:22
Условие попадания точки в полукруг можно записать в виде
#include <iostream>
using namespace std;
int main(){
float x,y,R;
cout<<"Vvedite a,b,R\n";
cin>>x>>y>>R;
if (x>=0 && x*x+y*y<=R*R)
cout<<"\nPopadaet\n";
else
cout<<"\nNe popadaet\n";
}
Тестовое решение:
Vvedite a,b,R
3
5
7
Popadaet
--------------------------------
Process exited after 15.45 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
Vvedite a,b,R
4
-2
3
Ne popadaet
--------------------------------
Process exited after 27.79 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
0,0
(0 оценок)
Популярные вопросы: Информатика
DemEntrA132
09.09.2022 22:13
Pascal. двухмерный массив в доме 5 подъездов, в каждом подъезде 15 квартир. в квартире может жить от 1 до 5 человек. рассчитайте сколько раз открываются двери подъездов....
OLEGator800
09.09.2022 22:13
1) информация представленнаяв компьютере в виде двоичного компьютерного кода 2)сеть, объединяющая в себе локальные, региональные и корпоративные сети, соединенные...
nastyan853958
22.08.2022 20:52
До какого числа должно измениться значение счетчика i в фрагменте программы, чтобы А стало равным 120? A:=1; for i:=2 to … do A:=A*i;...
Rogonova
05.06.2020 06:05
Сколько различных (осмысленных) предложений можно составить из фразы «ЗАЧЕМПОСТАВЛЕНАТАМАРКА?», вставляя пробелы?...
kamillionela
03.09.2020 10:28
Виберіть правильно створені e-mail варіанти відповідей1)[email protected]2)[email protected]3)1234.vikki.mail.ua4)[email protected]...
daniil12341234
13.10.2022 19:02
Составьте уравнение овр взаимодействия калия с серой. определите восстановитель и окислитель в этой реакции. как краткое, так и развернутое, со всеми действиями....
NastyKot15246
13.10.2022 19:02
Вчем вы видите причины внутренней политики екатерины ii?...
MaximRomanenko
13.10.2022 19:02
Составить план к рассказу л.н.толстой (глава из повести детство в сокращение...
Kxoma
13.10.2022 19:02
cнегирь пухленькая красногрудая птичка где в этом надо ставить тире и вообще надо ли его ставить? заранее всем...
liliakolokol
13.10.2022 19:02
Тело массой m=0,8 кг соскальзывает без трения с наклонной плоскости, наклоненный под углом a=45 градусов к горизонту. длина плоскости l =70 см. какую скорость будет...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
#include <iostream>
using namespace std;
int main(){
float x,y,R;
cout<<"Vvedite a,b,R\n";
cin>>x>>y>>R;
if (x>=0 && x*x+y*y<=R*R)
cout<<"\nPopadaet\n";
else
cout<<"\nNe popadaet\n";
}
Тестовое решение:
Vvedite a,b,R
3
5
7
Popadaet
--------------------------------
Process exited after 15.45 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
Vvedite a,b,R
4
-2
3
Ne popadaet
--------------------------------
Process exited after 27.79 seconds with return value 0
Для продолжения нажмите любую клавишу . . .