{ввожу текст, затем слово. Переменная flag нужна для того, чтобы в нее записать 1, если из слова встретиться в тексте хотя бы раз буква. Если это случилось, то Flag становится равной 1. К буквам слова и текста обращаемся как к массиву a[i] b[j]} var a,b:string; i,n,k,j,flag:integer; begin flag:=0; writeln('Введите текст'); readln(a); Writeln('Введите слово'); Readln(b); k:=length(a); n:=length(b); for i:=1 to n do for j:=1 to k do if a[i]=b[j]then flag:=1; if flag=1 then writeln('Y') else writeln('N'); end.
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
cout << "Введите количество нечётных чисел (до 2000 включительно) ";
int count;
int sum = 0;
cin >> count;
if(count >= 1 && count <= 2000)
{
for(int i = 1; i<=count; i++)
{
if(i%2!=0)
{
if(i!=count) // проверка на то, ставить ли ещё 1 плюс или будет равно
{
cout << i << " + ";
sum=sum+i;
}
else
{
cout << i;
sum=sum+i;
}
}
else
{
if(i!=count)
{
cout << i+1 << " + ";
i++;
sum=sum+i;
}
else
{
cout << i+1;
i++;
sum=sum+i;
}
}
}
}
cout << " = " <<sum;
system("pause");
return 0;
}
Аналогичная программа:
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
cout << "Введите последнее нечётное число";
int num;
int a;
cin >> num;
num=num+1;
num=num/2;
num=num*num;
cout << "Итого: " << num;
system("pause");
return 0;
}
var
a,b:string;
i,n,k,j,flag:integer;
begin
flag:=0;
writeln('Введите текст');
readln(a);
Writeln('Введите слово');
Readln(b);
k:=length(a);
n:=length(b);
for i:=1 to n do
for j:=1 to k do
if a[i]=b[j]then
flag:=1;
if flag=1 then
writeln('Y')
else
writeln('N');
end.