)напиши куда слово встовлять(вначало, вконец, посередине...);
<span>program z2; </span>
<span>var s,s1:string; </span>
<span>a:integer; </span>
<span>begin </span>
<span>write('Введите слово: ');read(s1); </span>
<span>write('Введите строку: ');read(s); </span>
<span>s:=s+' '; </span>
<span>a:=length(s); </span>
<span>writeln(a); </span>
<span>insert(s1,s,a+1); </span>
<span>writeln('Преобразованная строка: ',s); </span>
<span>end. </span>
<span>2) </span>
<span>program z1; </span>
<span>var s:string; </span>
<span>i,kol:integer; </span>
<span>begin </span>
<span>writeln('Введите строку'); </span>
<span>read(s); </span>
<span>kol:=0; </span>
<span>for i:=1 to length(s) do </span>
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.
Ответ:
А\/В
Объяснение:
_
А \/ В. |. ¬(¬A v B) v ¬C
0. 1. | 1. 1
0. 0. | 0. 0
1. 1. | 1. 1
1. 0. | 1 1
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.
Исходник на c++. Реализовал функцию, которая проверяет, является ли целое число полным квадратом. В функции main() приведен пример ее использования. То есть если число полный квадрат, выводится "Yes.", иначе "No.". Числа, которые можно проверять, имеют тип long long, то есть попадают в диапазон от -2^63 до 2^63-1. Думаю, сильно большие числа проверять ты не станешь, поэтому этого диапазона с лихвой хватит.