В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Mariiar
Mariiar
25.07.2020 22:42 •  Информатика

5 Контрольні питания 5.1 Що можна змінювати у тексті під час форматування символів?
5.2 Що можна змінювати у тексті під час форматування абзаців?
5.3 Як можна використати буфер обміну при редагуванні тексту?
5.4 Як вилучити речення із тексту?
5.5. Що таке абзац?
5.6. Як встановити міжрядковий інтервал? Які інтервали можна задавати у Word?
5.7. Як можна встановити абзацний відступ?​

Показать ответ
Ответ:
4333Jack99
4333Jack99
19.09.2021 23:21
#include <iostream>
#include <string>
#include <ctype.h>
using namespace std;

int main() {
freopen("D:\\input.txt", "r", stdin);
freopen("D:\\output.txt", "w", stdout);
char s[10001];
string newtext = "";
int c = 0;
gets_s(s);
for (int i = 0; s[i] != '\0'; i++) {
 if (s[i] == 'e' && s[i + 1] == 'n' && s[i + 2] == 'd') {
  c += 3;
  newtext += s[i];
  newtext += " ";
  newtext += s[i + 1];
  newtext += " ";
  newtext += s[i + 2];
  break;
 }
 c++;
 newtext += s[i];
 newtext += " ";
}
cout << c << endl << newtext;
}
0,0(0 оценок)
Ответ:
ева211078
ева211078
13.02.2020 23:27
Program kv;Var a,b,c,x1,x2,x,D: Real;  BEGIN    write ('input a b c =>');    Readln (a,b,c);    if a  = 0 then    if b = 0 then    Begin    Writeln ('The equation is not compatible');    Readln;     Halt
    End else    Begin    x :=-c / b;    Writeln ('Root x=' ,x:8:2);    Readln;    Halt    End else    Begin    D :=Sqr (b) - 4 * a * c;    if D<0 then    Begin    Writeln ('The equation has no real roots'); 
readln;    Halt    End else    Begin    x:=-b /( 2 * a );    if D = 0 then    Begin      Writeln ('Roots are equal x1=x2=', x:8:2);      Readln;        Halt      End;    x2:= Sqrt (D)/(2*a);    x1:= x2 + x;    x2:= x - x2;    Writeln('Roots: x1=',x1:8:2, ' x2= ',x2:8:2)    EndEnd;   Readln;End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота