Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
danilejik
17.05.2022 09:14 •
Информатика
Составить блок схему к стихотворению
"если ты стремишься к цели.
не ищешь легкого пути.
значит, ты на самом деле
сможешь до неё дойти"
👇
Увидеть ответ
Открыть все ответы
Ответ:
212629
17.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 оценок)
Ответ:
krasorka
17.05.2022
Только программа, блок-схему не знаю
#include <iostream>
#include <iomanip>
#include <vector>
#include <ctime>
int main()
{
using namespace std;
const int n = 5;
int A[n][n];
int D[n][n];
vector<int> B(n);
vector<int> C(n);
vector<int> S(n); //результирующий вектор
//как-нибудь заполняем исходные матрицы и вектора
srand(time(0));
for (int i = 0; i < n; ++i)
{
for (int j = 0; j < n; ++j)
{
A[i][j] = rand() % (n * n) - n * n / 2;
D[i][j] = rand() % (n * n) - n * 2;
}
B[i] = rand() % (n * n) - n;
C[i] = rand() % (n * n) - n * n + n;
}
//выведем исходные данные на экран
cout << "matrix A:\n";
for (int i = 0; i < n; ++i)
{
for (int j = 0; j < n; ++j)
cout << setw(5) << A[i][j];
cout << endl;
}
cout << "\nmatrix D:\n";
for (int i = 0; i < n; ++i)
{
for (int j = 0; j < n; ++j)
cout << setw(5) << D[i][j];
cout << endl;
}
cout << "\nvector B:\n";
for (int i = 0; i < n; ++i)
cout << setw(5) << B[i] << endl;
cout << "\nvector C:\n";
for (int i = 0; i < n; ++i)
cout << setw(5) << C[i] << endl;
//вычислим требуемое
for (int i = 0; i < n; ++i)
{
S[i] = 0;
for (int j = 0; j < n; ++j)
S[i] += D[i][j] * C[j];
S[i] += 3 * B[i];
}
//выведем результат на экран
cout << "\nvector S = D * C + 3 * B:\n";
for (int i = 0; i < n; ++i)
cout << setw(5) << S[i] << endl;
return 0;
}
4,7
(45 оценок)
Это интересно:
П
Праздники-и-традиции
24.12.2020
Как правильно чистить искуственную елку...
17.04.2022
Как избежать наказания в школе: 10 простых советов...
О
Образование-и-коммуникации
18.12.2022
Основные принципы подготовки к экзамену без зубрежки...
З
Здоровье
20.07.2020
Симптомы СРК: как безопасно путешествовать?...
К
Кулинария-и-гостеприимство
03.04.2023
Узнай, как сделать невероятно вкусный и загадочный мартини драгон...
Х
Хобби-и-рукоделие
18.12.2020
Как быстро размягчить пластилин Playdough: 5 простых способов...
07.06.2020
Отличный способ провести каникулы - морское путешествие! Как правильно подготовиться к нему?...
К
Компьютеры-и-электроника
09.11.2021
Как скачать приложения на Android: пошаговая инструкция для начинающих...
К
Компьютеры-и-электроника
18.09.2022
Как добавить кнопку Facebook на свой сайт: шаг за шагом...
Т
Транспорт
14.01.2023
Как избежать аварий на дороге...
Новые ответы от MOGZ: Информатика
hoteleleon3
16.10.2021
На какие виды делятся инструменты в программе SketchUp Make?...
люся4085
11.02.2022
Найдите ошибку в программе сложение двух чисел ОЧЕНЬ сдавать сегодня надо...
Артем834
15.01.2020
Составить программу решения следующей задачи. С первой яблони сорвали 3 яблока, со второй – 6 яблок, с третьей – 12 яблок и т.д., и наконец с последней – 48 яблока....
kotenok88
01.08.2022
Решить на питоне , 50 : напишите программу, которая в последовательности целых чисел определяет разность максимального и минимального чисел. программа получает на вход...
maxyatkevich
02.10.2021
Дополните программный код для определения столицы японии...
polinayac
24.11.2020
Перевести сумму к рублей в доллары сша по курсу ммвб на день решения ....
dimonst
23.12.2020
Составить массив целых чисел состаящих из 100 элементов. найти произведение четных чисел...
matsakov99
02.12.2021
Вычисление площади фигуры ограниченной линиями y=1/x, x=2.5, y=x...
Кристина6965
19.09.2020
Один іспанський конкістадор писав про індіанців: «переважна частина цієї землі заселена і безправно захоплена дикими тваринами і нерозумними істотами або грубими дикунами,...
seropyan2006
02.12.2021
Радиус окружности равен 5 см. на сколько процентов уменьшится площадь круга , ограниченного этой окружностью, если ее радиус уменьшить на 1 см?...
MOGZ ответил
Как река донховка изменяется в разные времена года...
Найдите ошибку: i think when you have the same clothes with other...
Определите массу оксида алюминия, который образуется при взаимодействии...
Напиши существительные в два столбика: 1 существенные с основой...
Героиня, прогуливаясь, случайно находит деньги. все рады, быстренько...
Напишите небольшое сочинение на тему астрахань на языке. только...
Во время книжной ярмарки были организованы встречи с писателями.каждая...
На притоке дона непрядве в 1380 году произошла куликовская битва....
я помню чудное мгновенье какое стихотворение? драматическое,поэтическое,прозаическое...
Решите уравнение 6 класс: 3/7х=2,1...
Полный доступ к 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.