1. Программа умножает своё значение на десять и затем прибавляет индекс цикла. В итоге делает это 4 раза.
Это равносильно сложению строковых данных в виде чисел от одного до четырёх.
s = '1' + '2' + '3' + '4' = 1234
Ответ: 1234.
2. Программа прибавляет к значению y значение индекса x (от 6 до 2) и затем делит значение на 5. [5 раз]
y = (0 + 6) / 5 = 1.2
y = (1.2 + 5) / 5 = 1.24
y = (1.24 + 4) / 5 = 0.848
y = (0.848 + 3) / 5 = 0.7696
y = (0.7696 + 2) / 5 = 0.55392
Ответ: 0.55392.
3. Программа прибавляет к значению s один и затем умножает значение на 2. [4 раза]
s = (0 + 1) * 2 = 2
s = (2 + 1) * 2 = 6
s = (6 + 1) * 2 = 14
s = (14 + 1) * 2 = 30
Ответ: 30.
Вот я рассказал несколько способов, как преобразовать word бесплатно и без особых заморочек, используя 2 разных подхода: Стандартные офисные программы, Специальное приложение.
Удачи !!!!!
Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.
Программа пройдётся по массиву. Если елемент массива больше М, то елемент будет записан в М. И так 10 раз. В конце выводится М. В итоге выведет 41 (самое большое число в массиве).
Var
i, k, x: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(x);
if x mod 2 = 0 then //если x четный
inc(k); //увеличиваем k на 1
end;
writeln('Четных: ', k);
writeln('Нечетных: ', 10-k);
<span>end.</span>