Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
БиологКоля
19.04.2020 15:05 •
Информатика
Кумир чертёжник фото прегрипил
👇
Увидеть ответ
Открыть все ответы
Ответ:
212629
19.04.2020
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 оценок)
Ответ:
magicufoshowp08hm1
19.04.2020
#include "stdafx.h"
#include <stdio.h>
#include <windows.h>
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
int const n=3;
int mas[n][n];
int sum1, sum2;
bool magik;
for (int i=0; i<n; i++)
for (int j=0; j<n; j++)
{
printf("mas[%d][%d] = ", i+1, j+1);
scanf("%d",&mas[ i ][ j ]);
}
printf("\nВведенная матрица:\n");
for (int i=0; i<n; i++)
{
for (int j=0; j<n; j++)
{
printf("%d ",mas[ i ][ j ]);
}
printf("\n");
}
sum1=0;
sum2=0;
for (int i = 0; i<n; i++)
{
sum1 += mas[ i ][ i ];
sum2 += mas[ i ][ n-1-i ];
}
printf("Сумма главной диагонали = %d\n", sum1);
printf("Сумма побочной диагонали = %d\n", sum2);
magik = true;
for (int i=0; i<n; i++)
{
if (sum1==sum2)
{
sum2=0;
for (int j=0; j<n; j++)
{
sum2 += mas[ i ][ j ];
}
} else { magik=false; break; }
}
if (magik==true)
{
for (int i=0; i<n; i++)
{
if (sum1==sum2)
{
sum2=0;
for (int j=0; j<n; j++)
{
sum2 += mas[ j ][ i ];
}
}
else { magik=false; break; }
}
}
if (magik==true)
printf("\nМатрица является магическим квадратом\n");
else
printf("\nМатрица не является магическим квадратом\n");
system("pause");
return 0;
}
4,4
(40 оценок)
Это интересно:
К
Кулинария-и-гостеприимство
24.10.2021
Как законсервировать томатный соус...
С
Семейная-жизнь
02.02.2020
Как показать почтение умершему знакомому...
К
Компьютеры-и-электроника
01.08.2020
Как закрывать приложения на iPhone, iPad и iPod Touch: инструкция для начинающих...
К
Компьютеры-и-электроника
26.04.2020
Как изменить одежду сима в The Sims 2: простые шаги...
12.09.2020
Как остановить человека, который задирает вас...
И
Искусство-и-развлечения
07.05.2022
Как играть на тромбоне: советы и рекомендации для начинающих...
К
Кулинария-и-гостеприимство
25.08.2021
Как сделать чай из роз: полезные рецепты и особенности приготовления...
К
Кулинария-и-гостеприимство
24.06.2022
Как приготовить курицу с рисом: пошаговый рецепт для начинающих...
К
Кулинария-и-гостеприимство
02.05.2023
Как сварить овощи: простые рецепты и полезные советы...
П
Питомцы-и-животные
20.02.2021
Как определить пол хомячка...
Новые ответы от MOGZ: Информатика
YulyaDremina
23.10.2021
Как в призентации сделать из 2/3 дробь...
katiabrandt17
23.05.2021
Для указания списка использованной литературы в документах команды панели Ссылки и списки литературы выполняют следующие функции (2 правильных ответа) Файл Стиль Параметры Вставить...
antuarmenskaya
31.03.2022
Презначения папки: хранения файлов хранения других попак хранения файлов и других фоийлов...
azharalol
14.02.2022
На одной странице электронного текста содержится 32 строки по 32 символа в каждой строке. Код одного символа имеет длину 16 бит. Сколько килобайт информации содержит страница текста?...
просвятленный
23.10.2020
Вся семья смотрит видеозапись любимого мультфильма? носитель информации?...
sp14
26.03.2022
Результаты поиска для фразы четверо друзей во время путешествие одалживали друг у друга деньги используя доблицу долгов опредилите кто из во время раздачи долгов получит наибольшую...
lisena123409
26.03.2022
Что из перечисленного не является обязательным элементом для нормальной работы стационарного компьютера? 1) кабель питания. 2) оперативная память. 3) процессор. 4) проектор...
мопдркиопм
26.03.2022
Отметьте программы,которые относятся к приложениям: а)компьютерные игры б)офисные программы в)база данных г)графические редакторы...
xujixixud
26.03.2022
Укажите только материальные модели: а) атлас б)макет скелета человека в)расписание уроков г)объемная модель молекула воды...
симона71
03.12.2022
Задали вопрос не знаю как ответить.вот вопрос: какие системы программирования вам известны. надо...
MOGZ ответил
Физика решите ! 4-е и 5-е задания!...
Подчеркни все члены предложений, определи порядок слов в них, укажи, в каких...
Сколько процентов мужчин поддерживают феменизм...
Решите уравнение 3(x+5)-x^2=(2-x)(2+x)...
До іть розв язати, будь ласка У четвертому класі навчалися Оксана та Вероніка,...
Написать текст как я провел каникулы(1 недельные) 5-7 предложение использую деепричастия,...
Решите #172(б, в) #173(г) и #174 (а, в)...
2. Подчеркни члены предложения, учитывая место паузы (|). Напиши, прямой или обратный...
Площадь прямой треугольной призмы 200см^2, как решить стороны и рёбра?...
какую навеску смеси, содержащей 30% NaCl и 60% KCl, необходимо взять для анализа,...
Полный доступ к 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.