Вот примерно так
Объяснение:
var
s, s1: string;
i, k: integer;
begin
write('Введите строку: ');
readln(s);
//s := 'мама папа дед лес поп';
writeln(s);
s := s + ' ';
i := 0;
k := 1;
while i < Length(s) do
inc(i);
if not (s[i] in [' ', ',', '-']) then
s1 := s1 + s[i]
else
if s1[1] = s1[Length(s1)] then
// writeln(s1);
delete(s, k, Length(s1) + 1);
// writeln(s);
end;
inc(k, Length(s1) + 1);
s1 := '';
//writeln(k);
end.
#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int randomDigit = 0;
int version = 0;
srand(time(NULL));
randomDigit = 1 + rand() % 7;
cout << "Отгадайте число, которое я загадал (1-7):";
cin >> version;
if (version == randomDigit)
cout << "Дa! Я загадал число - " << randomDigit << endl;
}
cout << "Нет! Я загадал число - " << randomDigit << endl;
return 0;
Вот примерно так
Объяснение:
var
s, s1: string;
i, k: integer;
begin
write('Введите строку: ');
readln(s);
//s := 'мама папа дед лес поп';
writeln(s);
s := s + ' ';
i := 0;
k := 1;
while i < Length(s) do
begin
inc(i);
if not (s[i] in [' ', ',', '-']) then
s1 := s1 + s[i]
else
begin
if s1[1] = s1[Length(s1)] then
begin
// writeln(s1);
delete(s, k, Length(s1) + 1);
// writeln(s);
end;
inc(k, Length(s1) + 1);
s1 := '';
//writeln(k);
end;
end;
writeln(s);
end.
#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int randomDigit = 0;
int version = 0;
srand(time(NULL));
randomDigit = 1 + rand() % 7;
cout << "Отгадайте число, которое я загадал (1-7):";
cin >> version;
if (version == randomDigit)
{
cout << "Дa! Я загадал число - " << randomDigit << endl;
}
else
{
cout << "Нет! Я загадал число - " << randomDigit << endl;
}
return 0;
}