<span>1. Если это Паскаль, то каждый оператор должен оканчиваться точкой с запятой. Тут ни один так не оканчивается.
2. Прочие ошибки.
a. В=А - должен быть знак присваивания, т.е. B:=A;
b. S+2=4.25 - должен быть знак присваивания := вместо =
Кроме этого, в левой части оператора присваивания должно быть имя, а не выражение.
c. R=A : B-1.78 - </span><span><span>должен быть знак присваивания := вместо =
Кроме этого, знак ":" не может встречаться в арифметическом выражении.
</span>d. If a then b:=0 - верен, если a имеет тип boolean
e. A:=D:=C - кратное присваивание недопустимо
f. If a=0 then b:=0 - верен, если а имеет числовой тип.</span>
В данной программе k - это количество шагов, т. е. от 6 до 12 включительно. Получается 7 шагов. Если совсем не понимаешь, то проще расписать каждый шаг от 6 до 12.
Например,
k:= 6; s:= 0+10
k:= 7; s:= 10+10
k:= 8; s:= 20+10
...
k:= 12; s:= 60+10
Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 > d2 then writeln('Строка ', s1, ' длиннее') else writeln('Строка ', s2, ' длиннее');
end.
100111=1*2^0+1*2^1+1*2^2+1*2^5=1+2+4+32=39
101=1*2^0+1*2^2=1+4=5
(перевод в десятичную)
39+5=44
39*5=195
ответ: 44 и 195