yatania-popovich7
?>

Выбери верный ответ. https://ykl-res.azureedge.net/c535a589-2c59-4939-8b84-7bff7f2cd6db/1.png Find what: город Replace with: место слово «место» заменится на слово «город» слово «город» заменится на слово «место» слово «место» заменится на слово «финиш» слово «город» заменится на слово «финиш»

Информатика

Ответы

a580028r
Верный вариант ответа под номером 2
margo55577869
#include <iostream>
#include <cstring>

int main() {

char* text1 = "Слово";
char* text = "Как то текст с гласными на конце кок";

char* newText = new char[strlen(text)];

int lastStop = 0, lastIter = 0;
for (int i = 0; text[i] != '\0'; i++) {
bool copyIt = false;

if (text[i] == ' ') lastStop = i;


if (text[i + 1] == ' ' || text[i + 1] == '\0') {
for (int j = 0; text1[j] != '\0'; j++) {
if (text[i] == text1[j]) {
copyIt = false; break;
}
copyIt = true;
}

}

if (copyIt == true) {
for (int j = lastStop; j <= i; j++, lastIter++)
newText[lastIter] = text[j];
}
}

for (int i = 0; i < lastIter; i++)
std::cout << newText[i];

std::cout << "\n";

return 0;
}
dimiff5
Var
   O:string;
   i,k:byte;
   B,pO:array[1..3] of string;
Begin
B[1]:='2 * 2 = 5 ?';pO[1]:='нет';
B[2]:='Оператор Read вводит данные?';pO[2]:='да';
B[3]:='СССР победил в войне 1812 года?';pO[3]:='нет';
k:=0;
For i:= 1 to 3 do
    Begin
    WriteLn(B[i]);
    ReadLn(O);
    O:=LowerCase(O);
    While (O <> 'да')and(O <> 'нет') do
       Begin
       Write('Попробуйте ещё раз: ');ReadLn(O);
       O:=LowerCase(O);
       End;
    if pO[i] = O then k:=k+1;
    End;
WriteLn('Количество правильных ответов: ',k);
End.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Выбери верный ответ. https://ykl-res.azureedge.net/c535a589-2c59-4939-8b84-7bff7f2cd6db/1.png Find what: город Replace with: место слово «место» заменится на слово «город» слово «город» заменится на слово «место» слово «место» заменится на слово «финиш» слово «город» заменится на слово «финиш»
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Ladiga_Evgenii886
lavorenn
Shurshilina850
Ladyby6224
mikhailkirakosyan
Olga-Rauisovna
ksen1280
fakelel
Latsukirina
nikolavlad
Elenazhukovafashion7
Иванина
Galinova2911
PushkinaKurnosov984
Golubitskaya378