<span>1.
a=281;
s = a div 100 = 281 div 100 = 2
d = (a - s*100) div 10 = (281 - 2*100) div 10 = 81 div 10 = 8
e = a - s*100 - d*10 = 281 - 2*100 - 8*10 = 1
b = e*100 + d*10 + s = 1*100 + 8*10 + 2 = 182
r := a - b = 281 - 182 = 99
2.
</span><span>а = 6*12 + 3 = 72 + 3 = 75
b = (a div 10)+ 5 = (75 div 10) + 5 = 7+5 = 12
a = (b mod 10)+ 1 = (12 mod 10) + 1 = 2 + 1 = 3
с = a + b 3 + 12 = 15</span>
Добрый день!
И так, начнём..
*Вопрос: <span><span>Изменится ли строка ST, над которой произведут операцию COPY? Почему?
</span>*Ответ: <u>Изменится</u>, т.к. при использовании функции <span>COPY </span>необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано.
**Вопрос: </span><span>Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?
**Ответ: Переменная k будет равна <u>17</u>, т.к. функция LENGTH определяет длину строки, считая каждый пробел, запятую, буквы и т.д.
***Вопрос: </span><span>Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?
***Ответ: Переменная tx будет равна слову <u>лес</u>. </span><span>Функция </span>DELETE<span> удаляет часть символов из строки. В нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа.
****Вопрос: </span><span>Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?
****Ответ: Переменная k будет равна <u>1</u>. Т.к. функция POS определяет первое вхождение заданного символа.
Дополненная программа:
program zadacha1;
var t: string; b: string[1]; n, k, i: integer;
begin
writeln('Введите текст: ');
<em>readln(t);</em>
n := length(t);
k := 0;
for i := 1 to n do begin
b := copy(t, i, 1);
<em>if (t[i] = 'a') or (t[i] = 'A') or (t[i] = 'а') or (t[i] = 'А')</em> then k := k + 1;
end;
writeln ('k= ', k);
<span>end.
</span></span><span><span>
*<em>Курсивом и выделением обозначены дополнения в программе.</em></span></span>
Переменная "proizv" - это произведение, а "summa" - сумма. Я сделал так, чтобы выводились все эти 20 нечётных чисел, для удобства, но если не надо, то просто стирайте всю строку №14 (начиная считать от "program asd_;").
program asd_;
uses crt;
var i, b, summa : integer;
proizv : real;
a : array [1..20] of integer;
BEGIN
clrscr;
b:=1;
summa:=0;
proizv:=1;
for i:=1 to 20 do begin
a[i]:=b;
b:=b+2;
writeln(a[i]);
end;
for i:=1 to 20 do summa:=summa+a[i];
for i:=1 to 20 do proizv:=proizv*a[i];
writeln('summa=',summa);
writeln('proizvedenie=',proizv);
<span>END.</span>