101010102-2528+716=101008290
program abc;
var a,b,c,s: integer;
begin
s:=0;
writeln ('Введите двузначное число');
readln(a);
b:=a div 10;
c:= a mod 10;
s:= b + c;
writeln ('Сумма цифр вашего числа = ',s);
end.
1) <span>if a > b then begin a:= b ; end else b:=a;
Вот правильный вариант еnd; был лишний так как еще одного begin не было
2)
Var s:integer;k:real;
begin
s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end
else k:=s ;writeln(k)
end.
Тут у вас ; с запятой были потеряны после исправления ответ 127</span>
К=8, потому, что каждое следующее число делится на 2.
Ты когда-нибудь наливал воду в форму для льда? Допустим, в одной ячейке умещается 1 ложка воды, но тебе нужно залить полторы ложки. Естественно, в одной ячейке столько не уместится, и тогда половина ложки перельется в другую ячейку. Точно так же и в этой задаче: в одном блоке (образной ячейке) умещается 2 Кб данных, но файл весит 2500 байт, то есть чуть больше. Надеюсь, я все правильно понял и помог)