Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ксюхахаха
15.10.2021 13:37 •
Информатика
Саяхан мотелі і екі корсетілімін салыстырыпыз.
а) Модел ердің бір-бірімен ерекшелігін сипаттаңыз.
Показать ответ
Ответ:
Е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 оценок)
Ответ:
arada1
23.10.2022 06:31
//я писал этот унылый код полтора часа. Полтора часа, Карл! Я слишком расслабился.
#include <iostream>
using namespace std;
int k=2;
bool StrangeSeq(int n){
if (k<n){
if(n%k==0){
cout<<"false";
return false;
}
k++;
StrangeSeq(n);
}
else
{
cout<<"true";
return true;
}
}
int main(){
int n;
cin>>n;
StrangeSeq(n);
cin.get();
cin.get();
}
0,0
(0 оценок)
Популярные вопросы: Информатика
jendossia
06.02.2020 06:25
Задание 1. Переведите в десятичную систему числа 1100112, Задание 2. Переведите в десятичную систему числа 1468 Задание 3. Переведите в десятичную систему числа 1D16. Задание...
Chchcjcujcj
22.05.2023 14:19
1.Данные каких типов могут обрабатываться в электронных таблицах? 2.В каких форматах данные могут быть представлены в электронных таблицах? ...
nastyavix
24.03.2023 00:27
Информатика 8 класс. тема: логические выражения и логические операции...
koninaes
03.05.2023 03:17
Проведите классификацию у себя дома, указывая основание классификации( минимум 10 уровней) информатика ...
saschatuba
11.06.2022 08:55
Тема: «крестики-нолики» 1. в приложении (урок 4) код игры «крестики нолики». создайте диалоговое окно, где пользователь сможет выбрать тип игры: один игрок / два игрока....
06062007ивант
19.05.2022 22:54
1.На основании документа Отчет о розничных продажах оформляется: Выберите один ответ: a. Приходный кассовый ордер b. Справка-отчет кассира-операциониста c. Возврат товаров...
kirill1s
20.07.2021 05:34
Автомобиль проехал первую половину пути со скоростью v1 = 10 м / с, а вторую половину со скоростью v2 = 15 м / с. найти vс. доказать, что средняя скорость меньше средней...
GucciGang007
13.06.2022 00:06
Саша встает в 7: 00 он делает зарядку моет лицо и руки чистят зубы саша убирает постель завтракает и идёт в школу после школы мальчик обедает потом готовит уроки он решает...
igor2312
20.07.2021 05:34
145. 1) запиши числа, которые содержат: а) 100 единиц класса миллионов и 409 единиц класса тысяч; б) по 70 единиц iv, iii и ii классов; в) 3 единицы класса миллиардов и...
Никита8547
20.07.2021 05:34
На тему почему мне понравился ромео?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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 k=2;
bool StrangeSeq(int n){
if (k<n){
if(n%k==0){
cout<<"false";
return false;
}
k++;
StrangeSeq(n);
}
else
{
cout<<"true";
return true;
}
}
int main(){
int n;
cin>>n;
StrangeSeq(n);
cin.get();
cin.get();
}