Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Lasaolnaser
03.11.2022 04:59 •
Информатика
Постройте команду Робот в программе Кумир. Даю 40б
👇
Увидеть ответ
Открыть все ответы
Ответ:
212629
03.11.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 оценок)
Ответ:
NoxchiKent
03.11.2022
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
int main(){
srand(time(0));
int n,m;
cin>>n;
cin>>m;
int **a=new int *[m];
for(int i=0;i<m;i++)
a[i]=new int[n];
cout<<"Matrix A:";
for(int i=0;i<m;i++){
cout<<"\n";
for(int j=0;j<n;j++){
a[i][j]=rand()%17-7;
cout<<a[i][j]<<" ";
}
}
int *b = new int[m];
cout<<"\n Array B:";
for(int j=0;j<n;j++){
b[j]=0;
for(int i=0;i<m;i++){
b[j]=b[j]+a[i][j];
}cout<<b[j]<<" ";
}
cin.get();
cin.get();
return 0;
}
4,8
(70 оценок)
Это интересно:
К
Компьютеры-и-электроника
16.05.2022
Как использовать команду установки воспроизведения атрибутов файлов для обнаружения вирусов?...
С
Семейная-жизнь
11.06.2020
Как прекратить воевать со своим братом или сестрой...
Х
Хобби-и-рукоделие
06.06.2021
Как поместить яйцо в бутылку: советы и хитрости...
Ф
Финансы-и-бизнес
04.06.2023
Как использовать дебетовую карту PayPal: подробная инструкция...
И
Искусство-и-развлечения
31.12.2021
Секреты создания поддельного беременного живота...
18.02.2020
10 методов, которые помогут забыть плохое воспоминание...
П
Питомцы-и-животные
04.03.2020
Маисовый полоз: как ухаживать и предотвратить возникновение проблем...
Ф
Философия-и-религия
26.02.2022
Как сделать цицит: открытие тайного рецепта...
Ф
Финансы-и-бизнес
23.03.2020
Как рассчитать годовой доход в процентах по банковскому сберегательному счету...
С
Стиль-и-уход-за-собой
10.02.2023
Как приготовить натуральное средство от запаха ног...
Новые ответы от MOGZ: Информатика
zymzym55
11.10.2021
Порожня діжка ємністю 50 л , її потрібно направити водою з колодязя відром ємністю 10л...
t11o
08.07.2022
Разработайте приложение, которое рассчитает сумму банковского вклада: до 5000 $ будет рассчитывать 20% годовых, от 5000 $ до 15000 $ - 22%, с 15000$ до 24%. если...
данииил4
08.07.2022
Информатика. паскаль. с клавиатуры вводится два числа. программа должна выводить на экран сумму, разность, произведение, частное этих чисел...
Vladik384
09.12.2020
Что такое понимание? Какие литературные произведения можно привести в пример...
nikita200310266xcute
24.12.2020
Log(1/2) |x| = |x| - 1...
Dinka2103
28.03.2021
164. Решите уравнение, применив алгоритм реше- ния уравнений: — 1 x + — д)...
lerailina30040
16.06.2021
Глобальные экологические проблемы включают: 1.перенаселенность отдельных стран мира 2.загрязнение воздуха промышленными выбросами и отходами 3.проблему международного...
alena679
16.06.2021
Сочинение- рассуждение на любую тему не менее 150 слов...
Петонова03
17.09.2022
Характеристика студента в сказке соловей и роза...
холера673
18.05.2021
Визначте відстань судна від берегового радара, якщо відбитий сигнал був одержаний через 0,2 мс після відправлення...
MOGZ ответил
Найдите значение выражения 507 х 308...
Вмассиве хранятся сведения об оценках 25 учеников по . определить...
11б только пишите уравнения решите уравнение: 5*(х-2)=3х+4...
К200 г раствора, содержащего 80% соли, добавили 300 г раствора,...
Прочитайте.спишите,вставляя пропущенные буквы.запишите проверочные...
От двух пристаней находящихся на расстоянии 510 км,отплыли в 7...
Составить формулы веществ и распределить их по группам оксиды,...
Вавтобусе 51 место для пассажиров.две трети этих мест уже заняты.сколько...
Сторона прямоугольника b=1см 6мм что на 4 мм меньше стороны a...
Напишите предложения,заменив деептичастия глаголами о поступлении...
Полный доступ к 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.