Фраза "я сдаю экзамен по информатике" состоиз из 29 символов. Объем фразы = 29*2 = 58 байт
#include <iostream>
int main()
{
setlocale (LC_ALL,"Russian");
int size;
std::cout <<"Введите кол-во эл. в массиве\n";
std::cin >> size;
int *a = new int[size], *b = new int[size];
std::cout <<"Введите эл. массива A\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> a[i];
}
std::cout <<"Введите эл. массива B\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> b[i];
}
std::cout <<"Сумма эл. массива\n";
for (int i=0; i<size; i++)
std::cout <<(i+1) <<") " <<a[i]+b[i] <<std::endl;
delete [] a;
delete [] b;
return 0;
}
Pascal
Алгоритм1
var
s : string;
n1,n2 : integer;
i,l : integer;
begin
readln (s);
n1 := 0; n2 := 0;
l := Length(s);
for i := 1 to l do
if (s[i] = ' ') then
if n1 = 0 then
n1 := i
else
n2 := i;
if n2 = 0 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.
Алгоритм2
var
s : string;
n1,n2 : integer;
i,l : integer;
r : boolean;
begin
readln (s);
n1 := 0; n2 := 0;
r := false;
l := Length(s);
i := 1;
While (i<=l) and (not r) do
begin
if s[i] = ' ' then
begin
n1 := i;
r := true;
end;
i := i +1;
end;
r :=false;
i := l;
While (i>0) and (not r) do
begin
if s[i] = ' ' then
begin
n2 := i;
r := true;
end;
i := i -1;
end;
if n2 = n1 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.</span></span>
1-десятка
2-тысяча
3-сотая
4-единица
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.