var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
В 4 ответ 3.
к сожалению в 5 не могу ничего понять.
Чтобы с помощью фотошопа, измерять нужные виртуальные размеры, а потом уже, воплатить в жизнь.
Словарь если не поняла
Виртуальные- не реальные
Фотошоп- программа
Воплатить- сделать, создать
Поблагодари пож на страничке))
110
х 101
------------
110
+ 110
------------
11110
Var
<span> K, s: </span>byte;
<span> A: array [0..4] of </span>byte;
begin
A[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for K := 0 to 4 do
s += a[k];
writeln(s);
<span>end.</span>