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*
Комментарий*