Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
Ну там дома строения ну ты понял или поняла
Синий и синий,
Синий и зеленый,
Синий и красный,
Зеленый и зеленый,
Зеленый и красный,
Красный и красный
6 вариантов